This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In makemeta, pass the final file name as the second argument to safer_open()
authorNicholas Clark <nick@ccl4.org>
Sat, 14 May 2011 15:30:01 +0000 (16:30 +0100)
committerNicholas Clark <nick@ccl4.org>
Thu, 19 May 2011 09:18:14 +0000 (10:18 +0100)
With this change, all callers to safer_open() pass 2 arguments.

Porting/makemeta

index c81aec5..37987a7 100644 (file)
@@ -50,7 +50,7 @@ my %dirs;
 
 @dirs  = map { "    - $_" } sort { lc $a cmp lc $b } @dirs;
 
-my $fh = safer_open($new_file);
+my $fh = safer_open($new_file, $file);
 
 local $" = "\n";
 print $fh <<"EOI";