| Subject: | [PATHCH] POD formatting in SYNOPSIS section |
Lack of space in front of comments in SYNOPSIS section causes it to render incorrectly.
| Subject: | File-Slurp.patch |
diff -rupN File-Slurp-9999.19/lib/File/Slurp.pm File-Slurp-podfix/lib/File/Slurp.pm
--- File-Slurp-9999.19/lib/File/Slurp.pm 2011-05-30 14:58:53.000000000 -0500
+++ File-Slurp-podfix/lib/File/Slurp.pm 2011-12-09 12:04:10.000000000 -0600
@@ -818,33 +818,33 @@ File::Slurp - Simple and Efficient Readi
use File::Slurp;
-# read in a whole file into a scalar
+ # read in a whole file into a scalar
my $text = read_file( 'filename' ) ;
-# read in a whole file into an array of lines
+ # read in a whole file into an array of lines
my @lines = read_file( 'filename' ) ;
-# write out a whole file from a scalar
+ # write out a whole file from a scalar
write_file( 'filename', $text ) ;
-# write out a whole file from an array of lines
+ # write out a whole file from an array of lines
write_file( 'filename', @lines ) ;
-# Here is a simple and fast way to load and save a simple config file
-# made of key=value lines.
+ # Here is a simple and fast way to load and save a simple config file
+ # made of key=value lines.
my %conf = read_file( $file_name ) =~ /^(\w+)=(.*)$/mg ;
write_file( $file_name, {atomic => 1}, map "$_=$conf{$_}\n", keys %conf ) ;
-# insert text at the beginning of a file
+ # insert text at the beginning of a file
prepend_file( 'filename', $text ) ;
-# in-place edit to replace all 'foo' with 'bar' in file
+ # in-place edit to replace all 'foo' with 'bar' in file
edit_file { s/foo/bar/g } 'filename' ;
-# in-place edit to delete all lines with 'foo' from file
+ # in-place edit to delete all lines with 'foo' from file
edit_file_lines sub { $_ = '' if /foo/ }, 'filename' ;
-# read in a whole directory of file names (skipping . and ..)
+ # read in a whole directory of file names (skipping . and ..)
my @files = read_dir( '/path/to/dir' ) ;
=head1 DESCRIPTION