lib/Imager.pm
changeset 78 603b47708d37
parent 74 a8495233e04c
child 124 87081e9cf3ba
--- a/lib/Imager.pm	Fri Aug 19 15:10:12 2011 +0200
+++ b/lib/Imager.pm	Fri Aug 19 15:30:00 2011 +0200
@@ -24,16 +24,14 @@
     given ($file) {
         when (/\.gz\.x$/) {
             open(my $fh => "openssl @{[CIPHER]} -d -pass $::o{pass} -in $file|");
-            local $/ = undef;
             gunzip($fh => $buffer) or die $GunzipError;
         }
         when (/\.gz$/) { gunzip($file => $buffer) or die $GunzipError }
         when (/\.x$/) {
             open(my $fh => "openssl @{[CIPHER]} -d -pass $::o{pass} -in $file|");
-            local $/ = undef;
             $$buffer = <$fh>;
         }
-        default { open(my $fh => $file); local $/ = undef; $$buffer = <$fh> }
+        default { open(my $fh => $file); sysread $fh => $$buffer, -s $fh }
     }
 }