summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/App/Dthumb/Data.pm.PL3
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);