This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 30080 was wrong to swap the BEGIN test to memEQ
authorNicholas Clark <nick@ccl4.org>
Fri, 23 Mar 2007 16:15:58 +0000 (16:15 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 23 Mar 2007 16:15:58 +0000 (16:15 +0000)
p4raw-id: //depot/perl@30724

op.c

diff --git a/op.c b/op.c
index c7b31ba..c10bf95 100644 (file)
--- a/op.c
+++ b/op.c
@@ -5405,7 +5405,7 @@ S_process_special_blocks(pTHX_ const char *const fullname, GV *const gv,
     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);