Constant subroutine main::C redefined

BrowserUk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Constant subroutine main::C redefined by tinita (Parson) on Sep 10, 2012 at 11:55 UTC
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]	[reply] [d/l] [select]
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]
Re^3: Constant subroutine main::C redefined by tinita (Parson) on Sep 10, 2012 at 12:08 UTC
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]
Re^4: Constant subroutine main::C redefined by Corion (Patriarch) on Sep 10, 2012 at 12:11 UTC
Re^4: Constant subroutine main::C redefined by BrowserUk (Patriarch) on Sep 10, 2012 at 12:16 UTC
Re^5: Constant subroutine main::C redefined by tinita (Parson) on Sep 10, 2012 at 12:31 UTC
Some notes below your chosen depth have not been shown here
Re: Constant subroutine main::C redefined by Corion (Patriarch) on Sep 10, 2012 at 11:51 UTC
perllexwarn "tells" me `no warnings 'redefine';` [download] ... but I guess there should be a way to structure your code not to redefine an existing subroutine at all `:-)`. On Windows (resp. case-insensitive file systems), getting a lot of these for no obvious reason is a sure-fire symptom of loading a module using the wrong case for its name: `use File::Find; # ... and in a code location far away use file::find;` [download]	[reply] [d/l] [select]
Re^2: Constant subroutine main::C redefined by BrowserUk (Patriarch) on Sep 10, 2012 at 12:00 UTC
no warnings 'redefine'; Doesn't work for constant subroutines there should be a way to structure your code not to redefine an existing subroutine at all :-). In this case, no. 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]
Re: Constant subroutine main::C redefined by Khen1950fx (Canon) on Sep 10, 2012 at 12:41 UTC
Using tinita's example: `#!/usr/bin/perl BEGIN { $ENV{'REDEFINE'} = 0; } use autodie; use common::sense; use Env::Export qw/:nowarn REDEFINE/; sub FOO () { 23 } sub FOO () { 42 }` [download]	[reply] [d/l]
Re^2: Constant subroutine main::C redefined by tinita (Parson) on Sep 10, 2012 at 12:46 UTC
has the same problem with perl < 5.16	[reply]