Permalink
Browse files

chmod of hints files was too aggressive, make it only set 644 instead…

… of 755.

  The 5.13.x branch of perls introduced 'porting/exec-bit.t' which is failing
  when files that shouldn't have execute bit in the source tree do.

  Highlighted by Randy Stauner (magnificent-tears) as an issue on Github.
  • Loading branch information...
bingos committed May 14, 2011
1 parent d4a8f9c commit 9adaa25602a33f3946c2e0108c4e433d91a7ebcf
Showing with 2 additions and 2 deletions.
  1. +1 −1 dist.ini
  2. +1 −1 lib/Devel/PatchPerl.pm
View
@@ -1,5 +1,5 @@
name = Devel-PatchPerl
-version = 0.34
+version = 0.36
author = Chris Williams <chris@bingosnet.co.uk>
license = Perl_5
copyright_holder = Chris Williams and Marcus Holland-Moritz
View
@@ -220,7 +220,7 @@ sub _determine_version {
sub _patch_hints {
return unless my ($file,$data) = hint_file();
my $path = File::Spec->catfile( 'hints', $file );
- chmod 0755, $path or die "$!\n";
+ chmod 0644, $path or die "$!\n";
open my $fh, '>', $path or die "$!\n";
print $fh $data;
close $fh;

0 comments on commit 9adaa25

Please sign in to comment.