Re^12: Constant subroutine main::C redefined

[BrowserUk]

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

[tobyink]

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;'

[Anonymous Monk]

$ perl -wE"BEGIN{$SIG{__WARN__}=sub{};} sub f(){1}; say f; sub f(){2};
+ say f;"
1
2