Change 30080 was wrong to swap the BEGIN test to memEQ

p4raw-id: //depot/perl@30724

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index c7b31ba908..c10bf952ac 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);