made binmode args for read_file and write_file be passed to binmode on

[urisagit/Perl-Docs.git] / lib / File / Slurp.pm

diff --git a/lib/File/Slurp.pm b/lib/File/Slurp.pm
index 1d043c3..73249c6 100755 (executable)
--- a/lib/File/Slurp.pm
+++ b/lib/File/Slurp.pm
@@ -154,7 +154,6 @@ ERR
 # a regular file. set the sysopen mode
 
                my $mode = O_RDONLY ;
-               $mode |= O_BINARY if $args{'binmode'} ;
 
 #printf "RD: BINARY %x MODE %x\n", O_BINARY, $mode ;
 
@@ -166,6 +165,10 @@ ERR
                        goto &_error ;
                }
 
+               if ( my $binmode = $args{'binmode'} ) {
+                       binmode( $read_fh, $binmode ) ;
+               }
+
 # get the size of the file for use in the read loop
 
                $size_left = -s $read_fh ;
@@ -336,7 +339,6 @@ sub write_file {
 # set the mode for the sysopen
 
                my $mode = O_WRONLY | O_CREAT ;
-               $mode |= O_BINARY if $args->{'binmode'} ;
                $mode |= O_APPEND if $args->{'append'} ;
                $mode |= O_EXCL if $args->{'no_clobber'} ;
 
@@ -351,6 +353,10 @@ sub write_file {
                }
        }
 
+       if ( my $binmode = $args{'binmode'} ) {
+               binmode( $write_fh, $binmode ) ;
+       }
+
        sysseek( $write_fh, 0, SEEK_END ) if $args->{'append'} ;