Commit c1fbe830 authored by ian%hixie.ch's avatar ian%hixie.ch
Browse files

We should be able to access strings with uppercase letters -- oops. Changing... 

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.
parent a98c451b

webtools/PLIF/PLIF/DataSource/FileStrings.pm

+2 −1
Original line number Diff line number Diff line
@@ -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

    }

}