stop using autodie to be compatible with perl < 5.8.4

diff --git a/lib/Distar.pm b/lib/Distar.pm
index 11ae8b8..a0d126c 100644 (file)
--- a/lib/Distar.pm
+++ b/lib/Distar.pm
@@ -40,7 +40,6 @@ sub manifest_include {
 }
 
 sub write_manifest_skip {
-  use autodie;
   my @files = @Manifest;
   my @parts;
   while (my ($dir, $spec) = splice(@files, 0, 2)) {
@@ -54,7 +53,8 @@ sub write_manifest_skip {
     push @parts, $re;
   }
   my $final = '^(?!'.join('|', map "${_}\$", @parts).')';
-  open my $skip, '>', 'MANIFEST.SKIP';
+  open my $skip, '>', 'MANIFEST.SKIP'
+    or die "can't open MANIFEST.SKIP: $!";
   print $skip "${final}\n";
   close $skip;
 }