From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 3 May 2005 12:18:50 +0000 (+0000)
Subject: Error in the latest FindBin patch, noticed by Nicholas
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d0c833c6b6d161774fa9ee0c74b6748675c48591;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);