From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 20 Mar 2002 00:47:17 +0000 (+0000)
Subject: Surely a typo.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=563aca73f1f51dd4b10089896b544a6ae41316cb;p=p5sagit%2Fp5-mst-13.2.git

Surely a typo.

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

diff --git a/gv.c b/gv.c
index 6fd5ff7..5b32b0d 100644
--- 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;
 	}