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

You need the if $] in the first definition of FOO. That should prevent it being constant-folded.

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Replies are listed 'Best First'.
Re^10: Constant subroutine main::C redefined
by BrowserUk (Patriarch) on Sep 10, 2012 at 21:56 UTC
    That should prevent it being constant-folded.

    It would. Which is why I cannot use that solution.

    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]

      Well, if you want constant folding, then you'll have to deal with the warning being generated. It's a mandatory warning.

      Of course, just because the warning will be generated; doesn't mean it has to be displayed. $SIG{__WARN__} can catch and hide it.

      perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
[reply]
[d/l]
        Of course, just because the warning will be generated; doesn't mean it has to be displayed. $SIG{__WARN__} can catch and hide it.

        Really? What am I doing wrong then? 

        C:\test>perl -wE"$SIG{__WARN__}=sub{}; sub f(){1}; say f; sub f(){2}; 
+say f;"
Constant subroutine f redefined at -e line 1.
1
2

        [download]
        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]
[d/l]

In Section Seekers of Perl Wisdom