chiark / gitweb /
-e eats as much as poss
authorian <ian>
Tue, 10 Feb 2004 21:24:07 +0000 (21:24 +0000)
committerian <ian>
Tue, 10 Feb 2004 21:24:07 +0000 (21:24 +0000)
layout/layout

index 7bcd88a5c05d47ff57928fd135517b24997cee45..766b1bc17f43eddce6b37c52e9874d68053b7b33 100755 (executable)
@@ -1217,7 +1217,7 @@ while (@ARGV && $ARGV[0] =~ m/^\-/) {
        elsif (s/^(e)
               ((?:[a-z]|\*|\?|\[[a-z][-a-z]*\])*?)
               (\~?) (\d*) (\=*|\-+|\++) (\d*)
-              ([a-z]+)//ix) {
+              ([a-z]+)$//ix) {
            my ($ee,$g,$n,$d,$c,$v,$cc) = ($1,$2,$3,$4,$5,$6,$7);
            my ($eo, $invert, $lfn, $ccc, $sense,$limit);
            $g =~ s/\?/\./g; $g =~ s/\*/\.\*/g;