b2/extract-symbols: don't strip leading / from directory

This commit is contained in:
Werner Almesberger
2012-05-24 00:20:56 -03:00
parent 2ce3b7f82b
commit 9b1277886b
+1 -1
View File
@@ -22,7 +22,7 @@ sub usage
&usage if $#ARGV != 0;
push @f, $ARGV[0];
($dir = $ARGV[0]) =~ s|/[^/]*$||;
($dir = $ARGV[0]) =~ s|[^/]*$||;
$dir = "." if $dir eq "";
while (@f) {