This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Error in the latest FindBin patch, noticed by Nicholas
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 3 May 2005 12:18:50 +0000 (12:18 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 3 May 2005 12:18:50 +0000 (12:18 +0000)
p4raw-id: //depot/perl@24379

lib/FindBin.pm

index 122f083..b1d6404 100644 (file)
@@ -162,7 +162,7 @@ sub init
 
      my $cwd = getcwd();
      defined $cwd or $cwd = cwd(); # try harder
-     $script = File::Spec->catfile(getcwd(), $script)
+     $script = File::Spec->catfile($cwd, $script)
        unless File::Spec->file_name_is_absolute($script);
 
      ($Script,$Bin) = fileparse($script);