From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 23 Mar 2007 16:15:58 +0000 (+0000)
Subject: Change 30080 was wrong to swap the BEGIN test to memEQ
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6952d67eb351266a502cac44072fad4994f66b8c;p=p5sagit%2Fp5-mst-13.2.git

Change 30080 was wrong to swap the BEGIN test to memEQ

p4raw-id: //depot/perl@30724
---

diff --git a/op.c b/op.c
index c7b31ba..c10bf95 100644
--- 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);