Re^11: Constant subroutine main::C redefined

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'

Comment on Re^11: Constant subroutine main::C redefined Download Code

Replies are listed 'Best First'.
Re^12: Constant subroutine main::C redefined by BrowserUk (Patriarch) on Sep 10, 2012 at 23:47 UTC
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]
Re^13: Constant subroutine main::C redefined by tobyink (Canon) on Sep 10, 2012 at 23:50 UTC
The definition of the constants happens at compile time. The assignment to `$SIG{__WARN__}` happens at run time. You want it in a BEGIN block. `perl -wE'BEGIN{$SIG{__WARN__}=sub{}}; sub f(){1}; say f; sub f(){2}; s +ay f;'` [download] `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l] [select]
Re^13: Constant subroutine main::C redefined by Anonymous Monk on Sep 10, 2012 at 23:56 UTC
`$ perl -wE"BEGIN{$SIG{__WARN__}=sub{};} sub f(){1}; say f; sub f(){2}; + say f;" 1 2` [download]	[reply] [d/l]

• hippo

• erzuuli

‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.


Your skill will accomplish what the force of many cannot
	PerlMonks