Change 23604: There are clearer ways of saying m/^[ab]$/ than strchr("ab", c)

[Nicholas Clark]

Change 23604 by [EMAIL PROTECTED] on 2004/12/03 18:26:43

        There are clearer ways of saying m/^[ab]$/ than strchr("ab", c)
        They seem to produce slightly smaller object code too.

Affected files ...

... //depot/perl/gv.c#208 edit

Differences ...

==== //depot/perl/gv.c#208 (text) ====
Index: perl/gv.c
--- perl/gv.c#207~23277~        Wed Sep  8 09:49:59 2004
+++ perl/gv.c   Fri Dec  3 10:26:43 2004
@@ -740,7 +740,8 @@
                    sv_type != SVt_PVGV &&
                    sv_type != SVt_PVFM &&
                    sv_type != SVt_PVIO &&
-                   !(len == 1 && sv_type == SVt_PV && strchr("ab",*name)) )
+                   !(len == 1 && sv_type == SVt_PV &&
+                     (*name == 'a' || *name == 'b')) )
                {
                    gvp = (GV**)hv_fetch(stash,name,len,0);
                    if (!gvp ||
End of Patch.