12 lines
414 B
Diff
12 lines
414 B
Diff
|
diff -up perl-5.10.0/lib/File/Basename.pm.spam perl-5.10.0/lib/File/Basename.pm
|
||
|
|
--- perl-5.10.0/lib/File/Basename.pm.spam 2009-07-27 08:45:18.000000000 +0200
|
||
|
|
+++ perl-5.10.0/lib/File/Basename.pm 2009-07-28 09:01:54.757410886 +0200
|
||
|
|
@@ -331,6 +331,7 @@ sub dirname {
|
||
|
|
sub _strip_trailing_sep {
|
||
|
|
my $type = $Fileparse_fstype;
|
||
|
|
|
||
|
|
+ local $1;
|
||
|
|
if ($type eq 'MacOS') {
|
||
|
|
$_[0] =~ s/([^:]):\z/$1/s;
|
||
|
|
}
|