in reply to Re: Constant subroutine main::C redefined
in thread Constant subroutine main::C redefined

no warnings "redefine";

Doesn't work for constant subroutines. Yes. It is an unusual requirement to redefine a constant ;)

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

RIP Neil Armstrong
  • Comment on Re^2: Constant subroutine main::C redefined

Replies are listed 'Best First'.
Re^3: Constant subroutine main::C redefined
by tinita (Parson) on Sep 10, 2012 at 12:08 UTC
    like I said, it doesn't work from outside. for constants the redefinition happens in constant.pm.
    you could delete $main::{C}
[reply]
[d/l]

      Also note that "redefining" a constant does not necessarily do what BrowserUk wants. The constants get inlined, so redefining them only works from that point on:

      use constant C => 1;
sub c { C };

use constant C => 2;
sub d { C };

print c(); # 1
print d(); # 2

      [download]
[reply]
[d/l]
      like I said, it doesn't work from outside. for constants the redefinition happens in constant.pm.

      I'm not using the constant pragma.

      With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.

      RIP Neil Armstrong
[reply]
        care to show some code and inform us which perl version you are using? *sigh*
        talking about constants without further explanation for me means using constant.pm. everything else is just a subroutine with an empty prototype.
        talking about a subroutine with an empty prototype? 
        $ perl5.16.0 -wE'
no warnings "redefine";
sub FOO () { 23 }
sub FOO () { 42 }'
$

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom