Permalink
Browse files

Resolve a fatal regression in patch_hints that meant the actual hints…

… file didn't get actually patched. Doh.
  • Loading branch information...
1 parent 6207abb commit 21843164fcdc2d919e0ec3b773c300d45d57d93a @bingos committed Mar 19, 2011
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.26
+version = 0.28
author = Chris Williams <chris@bingosnet.co.uk>
license = Perl_5
copyright_holder = Chris Williams and Marcus Holland-Moritz
@@ -212,7 +212,7 @@ sub _patch_hints {
return unless my ($file,$data) = hint_file();
my $path = File::Spec->catfile( 'hints', $file );
chmod 0755, $path or die "$!\n";
- open my $fh, '>', $file or die "$!\n";
+ open my $fh, '>', $path or die "$!\n";
print $fh $data;
close $fh;
return 1;

0 comments on commit 2184316

Please sign in to comment.