Deal with backslash delimited paths in make-proto.pl

This commit is contained in:
Asanka C. Herath
2010-11-09 15:38:41 -05:00
parent fe3e119691
commit 9bb59e45c6

View File

@@ -180,6 +180,7 @@ sub foo {
local ($arg) = @_; local ($arg) = @_;
$_ = $arg; $_ = $arg;
s/.*\/([^\/]*)/$1/; s/.*\/([^\/]*)/$1/;
s/.*\\([^\\]*)/$1/;
s/[^a-zA-Z0-9]/_/g; s/[^a-zA-Z0-9]/_/g;
"__" . $_ . "__"; "__" . $_ . "__";
} }