Skip Menu |
 

This queue is for tickets about the File-Slurp CPAN distribution.

Report information
The Basics
Id: 73142
Status: open
Priority: 0/
Queue: File-Slurp

People
Owner: Nobody in particular
Requestors: dolmen [...] cpan.org
stratman [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 9999.19
Fixed in: (no value)



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
Download File-Slurp.patch
text/x-diff 1.8k
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


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.