Change 23607: Remove double checking of acceptable switches on tr/// ops.

[Nicholas Clark]

Change 23607 by [EMAIL PROTECTED] on 2004/12/03 20:38:37

        Remove double checking of acceptable switches on tr/// ops.

Affected files ...

... //depot/perl/toke.c#510 edit

Differences ...

==== //depot/perl/toke.c#510 (text) ====
Index: perl/toke.c
--- perl/toke.c#509~23606~      Fri Dec  3 12:07:31 2004
+++ perl/toke.c Fri Dec  3 12:38:37 2004
@@ -6665,15 +6665,23 @@
     }
 
     complement = del = squash = 0;
-    while (strchr("cds", *s)) {
-       if (*s == 'c')
+    while (1) {
+       switch (*s) {
+       case 'c':
            complement = OPpTRANS_COMPLEMENT;
-       else if (*s == 'd')
+           break;
+       case 'd':
            del = OPpTRANS_DELETE;
-       else if (*s == 's')
+           break;
+       case 's':
            squash = OPpTRANS_SQUASH;
+           break;
+       default:
+           goto no_more;
+       }
        s++;
     }
+  no_more:
 
     New(803, tbl, complement&&!del?258:256, short);
     o = newPVOP(OP_TRANS, 0, (char*)tbl);
End of Patch.