From: Graham Knop <haarg@haarg.org>
Date: Wed, 4 Sep 2013 20:09:31 +0000 (-0400)
Subject: stop using autodie to be compatible with perl < 5.8.4
X-Git-Tag: v0.002000~35
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19916679c410decada128fa832c60c4ae3ee1f2b;p=p5sagit%2FDistar.git

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
--- 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;
 }