diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-02-27 18:43:45 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-02-27 18:43:45 +0100 |
| commit | 149e463ca5430c9327cbf4e516104bdc2dcea3ae (patch) | |
| tree | f4cdb639ca32441ba6e9b9c1507be1fe75a6b185 | |
| parent | e4f64d9daf20c5dabab0e50e93dbf7da647d5286 (diff) | |
"input_record_separator is not supported on a per-handle basis". Whoops.
| -rw-r--r-- | lib/App/Dthumb/Data.pm.PL | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lib/App/Dthumb/Data.pm.PL b/lib/App/Dthumb/Data.pm.PL index b07ed77..a9e8ed8 100644 --- a/lib/App/Dthumb/Data.pm.PL +++ b/lib/App/Dthumb/Data.pm.PL @@ -4,7 +4,6 @@ use warnings; use 5.010; use autodie; use MIME::Base64 qw(encode_base64); -use IO::Handle; my ($out_file) = @ARGV; @@ -19,8 +18,7 @@ for my $file (readdir($share_dh)) { } open(my $fh, '<', "share/${file}"); - $fh->input_record_separator(undef); - my $content = <$fh>; + my $content = do { local $/ = undef; <$fh> }; close($fh); if ($file =~ qr{ \. (png | gif) $ }ox) { |