Changeset 1171 for trunk

Timestamp:

Jan 30, 2014, 11:26:02 PM (11 years ago)

Author:

pfusik

Message:

shorten-filenames: verify that extensions have between one and three characters.

File:

• trunk/tools/shorten-filenames.pl (modified) (1 diff)

trunk/tools/shorten-filenames.pl ¶

@@ -17 +17 @@
                 my $s = uc $e;
                 $s =~ y/-_//d;
-                my ($f, $x) = $s =~ /^([0-9A-Z]+)(\.[0-9A-Z]+)?$/ or die "$l: illegal filename\n";
+                my ($f, $x) = $s =~ /^([0-9A-Z]+)(\.[0-9A-Z]{1,3})?$/ or die "$l: illegal filename\n";
                 $f = substr($f, 0, $n);
                 my $c = 1;