From 0ccfa3a7ef995139f455499be376089048df4564 Mon Sep 17 00:00:00 2001 From: Chase Whitener Date: Fri, 16 Nov 2018 11:08:20 -0500 Subject: [PATCH] Fix a typo in the docs, update the change log to prep for the release of 9999.25 --- Changes | 4 ++++ lib/File/Slurp.pm | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 62e9778..35d0451 100644 --- a/Changes +++ b/Changes @@ -6,6 +6,10 @@ Revision history File::Slurp are perfectly fine to use with File::Slurp. - Add regression test for GLOB refs being slurped in. Thank you, James Keenan! https://github.com/perhunter/slurp/pull/17#issuecomment-437174592 + - Refactor read_file to use open and read rather than sysopen and sysread. + - Add a bugwards compatible feature to keep track of the cursor when + dealing with the DATA handle (https://github.com/perhunter/slurp/pull/17) + - Fix a typo in the docs. 9999.24 2018-10-29 - Document the clear downfalls of using file handles of any kind rather diff --git a/lib/File/Slurp.pm b/lib/File/Slurp.pm index 798a517..b192198 100644 --- a/lib/File/Slurp.pm +++ b/lib/File/Slurp.pm @@ -843,7 +843,7 @@ L function. use File::Slurp qw(prepend_file); prepend_file('/path/file', $header); prepend_file('/path/file', \@lines); - prepend_file('/path/file', { binmode => 'raw:'}, $bin_data); + prepend_file('/path/file', { binmode => ':raw'}, $bin_data); # equivalent to: use File::Slurp qw(read_file write_file);