Change 30724 by [EMAIL PROTECTED] on 2007/03/23 16:15:58
Change 30080 was wrong to swap the BEGIN test to memEQ
Affected files ...
... //depot/perl/op.c#899 edit
Differences ...
==== //depot/perl/op.c#899 (text) ====
Index: perl/op.c
--- perl/op.c#898~30644~ 2007-03-19 16:11:12.000000000 -0700
+++ perl/op.c 2007-03-23 09:15:58.000000000 -0700
@@ -5405,7 +5405,7 @@
const char *const name = colon ? colon + 1 : fullname;
if (*name == 'B') {
- if (memEQ(name, "BEGIN", 5)) {
+ if (strEQ(name, "BEGIN")) {
const I32 oldscope = PL_scopestack_ix;
ENTER;
SAVECOPFILE(&PL_compiling);
End of Patch.
