From 6952d67eb351266a502cac44072fad4994f66b8c Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 23 Mar 2007 16:15:58 +0000
Subject: [PATCH] Change 30080 was wrong to swap the BEGIN test to memEQ

p4raw-id: //depot/perl@30724
---
 op.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
2.7.4