in reply to Another "Find the bug!" Node
Do a deep copy, not a shallow copy.
package Package2; use Storable 'dclone'; use base 'Exporter'; use Package1 ':all'; our @EXPORT_OK = ( @{ dclone( \ @Package1::EXPORT_OK ) }, 'foobar' ); our %EXPORT_TAGS = %{ dclone( \ %Package1::EXPORT_TAGS ) }; push @{ $EXPORT_TAGS{all} } => 'foobar'; sub foobar { 'foobar' } 1;
⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Another "Find the bug!" Node
by ikegami (Patriarch) on Sep 27, 2006 at 17:08 UTC | |
by diotalevi (Canon) on Sep 27, 2006 at 17:49 UTC | |
by ikegami (Patriarch) on Sep 27, 2006 at 17:55 UTC | |
by diotalevi (Canon) on Sep 27, 2006 at 17:59 UTC |