26 lines
1.1 KiB
Diff
26 lines
1.1 KiB
Diff
|
diff -ruN perl-5.8.6-orig/lib/FindBin.pm perl-5.8.6/lib/FindBin.pm
|
||
|
|
--- perl-5.8.6-orig/lib/FindBin.pm 2003-12-27 14:52:04.000000000 +0000
|
||
|
|
+++ perl-5.8.6/lib/FindBin.pm 2005-04-27 11:52:30.000000000 +0100
|
||
|
|
@@ -179,8 +179,8 @@
|
||
|
|
}
|
||
|
|
|
||
|
|
# Get absolute paths to directories
|
||
|
|
- $Bin = abs_path($Bin) if($Bin);
|
||
|
|
- $RealBin = abs_path($RealBin) if($RealBin);
|
||
|
|
+ $Bin = abs_path($Bin) unless (!$Bin || File::Spec->file_name_is_absolute($Bin));
|
||
|
|
+ $RealBin = abs_path($RealBin) unless (!$RealBin || File::Spec->file_name_is_absolute($RealBin));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
diff -ruN perl-5.8.6-orig/MANIFEST perl-5.8.6/MANIFEST
|
||
|
|
--- perl-5.8.6-orig/MANIFEST 2004-11-01 15:42:06.000000000 +0000
|
||
|
|
+++ perl-5.8.6/MANIFEST 2005-04-27 11:52:46.000000000 +0100
|
||
|
|
@@ -1392,7 +1392,6 @@
|
||
|
|
lib/Filter/Simple/t/filter.t See if Filter::Simple works
|
||
|
|
lib/Filter/Simple/t/import.t See if Filter::Simple works
|
||
|
|
lib/FindBin.pm Find name of currently executing program
|
||
|
|
-lib/FindBin.t See if FindBin works
|
||
|
|
lib/finddepth.pl A depth-first find emulator--used by find2perl
|
||
|
|
lib/find.pl A find emulator--used by find2perl
|
||
|
|
lib/flush.pl Routines to do single flush
|