Changeset 1171


Ignore:
Timestamp:
Jan 30, 2014, 11:26:02 PM (10 years ago)
Author:
pfusik
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tools/shorten-filenames.pl

    r1164 r1171  
    1717                my $s = uc $e;
    1818                $s =~ y/-_//d;
    19                 my ($f, $x) = $s =~ /^([0-9A-Z]+)(\.[0-9A-Z]+)?$/ or die "$l: illegal filename\n";
     19                my ($f, $x) = $s =~ /^([0-9A-Z]+)(\.[0-9A-Z]{1,3})?$/ or die "$l: illegal filename\n";
    2020                $f = substr($f, 0, $n);
    2121                my $c = 1;
Note: See TracChangeset for help on using the changeset viewer.