From: Mark-Jason Dominus <mjd@plover.com>
Date: Fri, 24 Mar 2000 15:24:34 +0000 (+0000)
Subject: Allow "no Module;" even if there is no 'unimport'.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f6e0fe7d26717f8593eb338bc843bd8e5f48e27;p=p5sagit%2Fp5-mst-13.2.git

Allow "no Module;" even if there is no 'unimport'.

Subject: [ID 20000324.029] `unimport' is not special the way `import' is
Message-Id: <20000324152434.15160.qmail@plover.com>

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

diff --git a/gv.c b/gv.c
index 02f428b..836fdb2 100644
--- a/gv.c
+++ b/gv.c
@@ -372,7 +372,7 @@ Perl_gv_fetchmethod_autoload(pTHX_ HV *stash, const char *name, I32 autoload)
 
     gv = gv_fetchmeth(stash, name, nend - name, 0);
     if (!gv) {
-	if (strEQ(name,"import"))
+	if (strEQ(name,"import") || strEQ(name,"unimport"))
 	    gv = (GV*)&PL_sv_yes;
 	else if (autoload)
 	    gv = gv_autoload4(stash, name, nend - name, TRUE);