We should be able to access strings with uppercase letters -- oops. Changing regexp to include 'A-Z' as well as 'a-z'. Also adding a dump statement in the failure case to help when analysing the log looking for a bug.

This commit is contained in:
ian%hixie.ch 2001-11-11 15:33:59 +00:00
Родитель a98c451be4
Коммит c1fbe83087
1 изменённых файлов: 2 добавлений и 1 удалений

Просмотреть файл

@ -54,7 +54,7 @@ sub getDefaultString {
# XXX THIS IS PLATFORM SPECIFIC CODE XXX
if ($^O eq 'linux') {
foreach my $piece ($protocol, $string) {
$piece =~ s/[^a-z\/0-9.]/_/gos;
$piece =~ s/[^a-zA-Z\/0-9.]/_/gos;
}
$filename = "output/$protocol/$string";
} else {
@ -75,6 +75,7 @@ sub getDefaultString {
return ($type, $data);
} else {
# file does not exist
$self->dump(9, "No file for string '$string' in protocol '$protocol' (looking for '$filename')4");
return; # no can do, sir
}
}