Re: Constant subroutine main::C redefined

[tinita]

in reply to Constant subroutine main::C redefined

put
no warnings "redefine";
before the redefinition.
this does not work from "outside", e.g. for

no warnings "redefine"; # won't help here
require Foo;
delete $INC{"Foo.pm"};
require Foo;

[BrowserUk]

no warnings "redefine";

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

[tinita]

like I said, it doesn't work from outside. for constants the redefinition happens in constant.pm.
you could delete $main::{C}

[Corion]

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

[BrowserUk]

like I said, it doesn't work from outside. for constants the redefinition happens in constant.pm.

I'm not using the constant pragma.