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.

The start of some sanity?