Re: Redefining Imported Subs: of scope and no

[7stud]

Let's try something new; how about manually deleting/redefining the subroutine in the symbol table?

use feature 'say';
undef &say;
*say = \&not_say;
say 'test';
sub not_say {
    print 'not saying';
}

Maybe I'm getting my namespaces all mixed up because that doesn't seem to redefine the sub at all.

The confounding thing is that this works:

use strict;
use warnings;
use 5.012;

#Rule: sub names are entered into the symbol table.
sub abc {
    print "abc\n";
}

sub xyz {
    print "xyz\n";
}

local *abc; #gets rid of 'redefined main::abc' warning'
*abc = \&xyz;
abc;

--output:--
xyz

But this doesn't work:

use strict;
use warnings;
use 5.012;

sub xyz {
    print "xyz\n";
}

local *say;
*say = \&xyz;
say 'hello';

--output:--
hello

Nor does this:

use strict;
use warnings;
use 5.012;

use subs qw( say );  #Supposedly overrides a built in

my $verbose = 1;

sub say {
    if ($verbose) {
        print shift, " world\n";
    }
}

say 'hello';

--output:--
hello