more double slash sanitisation, avoids another loop

2006-04-25 01:23:48 +00:00 · 2006-04-25 01:23:48 +00:00 · 3b90dc8509
parent 1f06b39788
commit 3b90dc8509
1 changed files with 2 additions and 2 deletions
--- a/4
+++ b/4
@ -156,14 +156,14 @@ sub debug ($) { #{{{
 sub basename ($) { #{{{
 	my $file=shift;

-	$file=~s!.*/!!;
+	$file=~s!.*/+!!;
 	return $file;
 } #}}}

 sub dirname ($) { #{{{
 	my $file=shift;

-	$file=~s!/?[^/]+$!!;
+	$file=~s!/*[^/]+$!!;
 	return $file;
 } #}}}