fixed bug 718716

This commit is contained in:
JT Smith 2003-04-10 00:52:13 +00:00
parent 5570a9aeb4
commit c8f6eee867

View file

@ -162,7 +162,8 @@ sub makeCompliant {
$value =~ s/^\\//; #removes leading slash
$value =~ s/ /_/g; #replaces whitespace with underscores
$value =~ s/\.$//; #removes trailing period
$value =~ s/[^A-Za-z0-9\-\.\_\\\/]//g; #removes all funky characters
$value =~ s/[^A-Za-z0-9\-\.\_\/]//g; #removes all funky characters
$value =~ s/^\///; #removes a preceeding /
return $value;
}