in reply to Re^2: perl 5.12: 32 bit to 64 bit transition
in thread perl 5.12: 32 bit to 64 bit transition
package fred; sub fred{ print 'Fred says hi' } package main;; fred::fred;; Fred says hi print defined *{$fred::fred}{CODE};; [Can't use an undefined value as a symbol reference at (eval 21) line +1 print defined *{fred::fred}{CODE};; Ambiguous use of *{fred::fred} resolved to *fred::fred at (eval 19) li +ne 1, 1 print defined *{fred::bill}{CODE};; *{$_} = \&{"fred::$_"} for 'fred';; fred();; Fred says hi
In a nutshell, dropping the $ from next unless defined *{$Net::POP3::{$_}}{CODE};
To give next unless defined *{Net::POP3::{$_}}{CODE}; should work.
Though that would still issue a warning, so try:next unless defined *{"Net::POP3::$_"}{CODE};.
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.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^4: perl 5.12: 32 bit to 64 bit transition
by sg (Pilgrim) on Mar 26, 2012 at 15:24 UTC |
In Section
Seekers of Perl Wisdom