Error in the latest FindBin patch, noticed by Nicholas

p4raw-id: //depot/perl@24379

diff --git a/lib/FindBin.pm b/lib/FindBin.pm
index 122f083..b1d6404 100644 (file)
--- a/lib/FindBin.pm
+++ b/lib/FindBin.pm
@@ -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);