Skip Menu |
 

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

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

People
Owner: cwhitener [...] gmail.com
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
Download (untitled) / with headers
text/plain 275b
Hi Everyone, This has been fixed via https://github.com/perhunter/slurp/commit/770618f2523b1e4321265557b5a75e73a0380a1c but hasn't yet been released. We expect another release on 2018-10-15 that will contain this, as well as several other documentation fixes. Thanks, Chase
All fixed in release 9999.22. Thanks, Chase


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.