we get raw bytes for file entities

rjbs · Nov 2, 2009 · 4b3a8d7 · 4b3a8d7
1 parent 5f43992
commit 4b3a8d7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/dist.ini b/dist.ini
@@ -4,6 +4,7 @@ license = Perl_5
 copyright_holder = Ricardo Signes
 
 [Prereq]
+autodie         = 0 ; minimum?
 Archive::Tar    = 0
 Data::Section   = 0 ; technically only needed to test
 File::ShareDir  = 1 ; look in better places

diff --git a/lib/Path/Resolver/Role/FileResolver.pm b/lib/Path/Resolver/Role/FileResolver.pm
@@ -3,6 +3,7 @@ package Path::Resolver::Role::FileResolver;
 use Moose::Role;
 with 'Path::Resolver::Role::Resolver' => { excludes => 'default_converter' };
 
+use autodie;
 use namespace::autoclean;
 
 use Path::Resolver::SimpleEntity;
@@ -35,7 +36,7 @@ my $converter = Path::Resolver::CustomConverter->new({
   converter   => sub {
     my ($converter, $abs_path) = @_;
 
-    open my $fh, '<', "$abs_path" or Carp::confess("can't open $abs_path: $!");
+    open my $fh, '<:raw', "$abs_path";
     my $content = do { local $/; <$fh> };
     Path::Resolver::SimpleEntity->new({ content_ref => \$content });
   },