Only try to change perms if the hints file already exists

bingos · Aug 22, 2013 · 28b9d59 · 28b9d59
1 parent fc01a16
commit 28b9d59
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/dist.ini b/dist.ini
@@ -1,5 +1,5 @@
 name = Devel-PatchPerl
-version = 1.08
+version = 1.10
 author = Chris Williams <chris@bingosnet.co.uk>
 license = Perl_5
 copyright_holder = Chris Williams and Marcus Holland-Moritz

diff --git a/lib/Devel/PatchPerl.pm b/lib/Devel/PatchPerl.pm
@@ -338,7 +338,9 @@ sub _patch_hints {
   foreach my $os ( @os ) {
     return unless my ($file,$data) = hint_file( $os );
     my $path = File::Spec->catfile( 'hints', $file );
-    chmod 0644, $path or die "$!\n";
+    if ( -e $path ) {
+      chmod 0644, $path or die "$!\n";
+    }
     open my $fh, '>', $path or die "$!\n";
     print $fh $data;
     close $fh;