http://www.perlmonks.org?node_id=992734


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;

[download]

Replies are listed 'Best First'.
Re^2: Constant subroutine main::C redefined
by BrowserUk (Patriarch) on Sep 10, 2012 at 11:58 UTC
    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
[reply]
      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]

In Section Seekers of Perl Wisdom