in reply to Redefining Imported Subs: of scope and no
Let's try something new; how about manually deleting/redefining the subroutine in the symbol table?
use feature 'say'; undef &say; *say = \¬_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
In Section
Seekers of Perl Wisdom