Surely a typo.

p4raw-id: //depot/perl@15349

diff --git a/gv.c b/gv.c
index 6fd5ff7..5b32b0d 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1821,7 +1821,7 @@ Perl_is_gv_magical(pTHX_ char *name, STRLEN len, U32 flags)
        break;
     case '\017':   /* $^O & $^OPEN */
        if (len == 1
-           || (len == 4 && strEQ(name, "\027PEN")))
+           || (len == 4 && strEQ(name, "\017PEN")))
        {
            goto yes;
        }