note
7stud
<i><p>Let's try something new; how about manually deleting/redefining the subroutine in the symbol table?</p><code>
use feature 'say';
undef &say;
*say = \¬_say;
say 'test';
sub not_say {
print 'not saying';
}
</code><p>
Maybe I'm getting my namespaces all mixed up because that doesn't seem to redefine the sub at all.</p></i>
<p>The confounding thing is that this works:</p>
<code>
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
</code>
<p>But this doesn't work:</p>
<code>
use strict;
use warnings;
use 5.012;
sub xyz {
print "xyz\n";
}
local *say;
*say = \&xyz;
say 'hello';
--output:--
hello
</code><p>
Nor does this:</p>
<code>
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
</code>
1017898
1017898