exempt $foo::a,$foo::b from warnings only if sort() was seen in package foo

	Message-ID: <19990303172356.F7442@dal.asp.ti.com>
	Subject: Re: 'use strict' doesn't work for one-letter variables

p4raw-id: //depot/perl@3067

1 files changed, 0 insertions, 6 deletions

diff --git a/gv.c b/gv.c
index ff278ccc08..ae77d280e5 100644
--- a/gv.c
+++ b/gv.c
@@ -621,12 +621,6 @@ gv_fetchpv(const char *nambeg, I32 add, I32 sv_type)
 	    IoFLAGS(GvIOn(gv)) |= IOf_ARGV|IOf_START;
 	}
 	break;
-
-    case 'a':
-    case 'b':
-	if (len == 1)
-	    GvMULTI_on(gv);
-	break;
     case 'E':
 	if (strnEQ(name, "EXPORT", 6))
 	    GvMULTI_on(gv);