merging 5.5 bugfixes

This commit is contained in:
JT Smith 2004-03-01 03:24:18 +00:00
parent 7edf45ad47
commit a1b80ac789

View file

@ -178,6 +178,7 @@ sub makeCompliant {
$value =~ s/\.$//; #removes trailing period
$value =~ s/[^A-Za-z0-9\-\.\_\/]//g; #removes all funky characters
$value =~ s/^\///; #removes a preceeding /
$value =~ s/\/\//\//g; #removes double /
return $value;
}