diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-03 12:18:50 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-03 12:18:50 +0000 |
| commit | d0c833c6b6d161774fa9ee0c74b6748675c48591 (patch) | |
| tree | 071ac1ebcfea1aac1ecd0e9439e5bce73fb51fbd | |
| parent | 491873e5975978ffc50c5af79581657c3f0e3068 (diff) | |
| download | perl-d0c833c6b6d161774fa9ee0c74b6748675c48591.tar.gz | |
Error in the latest FindBin patch, noticed by Nicholas
p4raw-id: //depot/perl@24379
| -rw-r--r-- | lib/FindBin.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/FindBin.pm b/lib/FindBin.pm index 122f083f3d..b1d640421d 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); |