--- 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 }
}
}