diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-02-27 18:40:03 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-02-27 18:40:03 +0100 |
| commit | 3a00d48b65ed450bb4958dac8f9c8637c5bbf515 (patch) | |
| tree | 27dde49f801928bdb3ce5cd4c469eee4431f244b | |
| parent | c8c5da39dbf4e1fa3a2d0ef57269cd797062ee8d (diff) | |
App::Dthumb::Data generator: Use IO::Handle
| -rw-r--r-- | lib/App/Dthumb/Data.pm.PL | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/App/Dthumb/Data.pm.PL b/lib/App/Dthumb/Data.pm.PL index 1f04800..b07ed77 100644 --- a/lib/App/Dthumb/Data.pm.PL +++ b/lib/App/Dthumb/Data.pm.PL @@ -4,8 +4,8 @@ use warnings; use 5.010; use autodie; use MIME::Base64 qw(encode_base64); +use IO::Handle; -local $/ = undef; my ($out_file) = @ARGV; open(my $out_fh, '>', $out_file); @@ -19,6 +19,7 @@ for my $file (readdir($share_dh)) { } open(my $fh, '<', "share/${file}"); + $fh->input_record_separator(undef); my $content = <$fh>; close($fh); |