This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make C<no FOO> fail if C<unimport FOO> fails
authorTim Bunce <Tim.Bunce@ig.co.uk>
Mon, 18 Nov 1996 06:06:15 +0000 (18:06 +1200)
committerChip Salzenberg <chip@atlantic.net>
Tue, 19 Nov 1996 02:16:00 +0000 (14:16 +1200)
gv.c

diff --git a/gv.c b/gv.c
index a7cee3f..e825187 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -276,7 +276,7 @@ char* name;
     if (!gv) {
        CV* cv;
 
     if (!gv) {
        CV* cv;
 
-       if (strEQ(name,"import") || strEQ(name,"unimport"))
+       if (strEQ(name,"import"))
            gv = (GV*)&sv_yes;
        else if (strNE(name, "AUTOLOAD")) {
            gv = gv_fetchmeth(stash, "AUTOLOAD", 8, 0);
            gv = (GV*)&sv_yes;
        else if (strNE(name, "AUTOLOAD")) {
            gv = gv_fetchmeth(stash, "AUTOLOAD", 8, 0);