Re: Re (tilly) 3: Filehandles vs. Packages: And the winner is...

I tried that originally, and it still collided with the filehandle....

perl -MCGI -e 'my $q = CGI->new(); open CGI, "~/foo.txt";'
Can't locate object method "new" via package "IO::Handle" at -e line 1
+.
[download]

-Blake

Comment on Re: Re (tilly) 3: Filehandles vs. Packages: And the winner is... Download Code

Replies are listed 'Best First'.
(tye)Re: Filehandles vs. Packages: And the winner is... by tye (Sage) on Aug 30, 2001 at 04:32 UTC
Even the least ambiguous object invocation fails here: `perl -e "use CGI; $q= CGI::->new(); open CGI,'<cgi'"` with the same error. As far as I'm concerned, the first lesson here is Don't give your modules all-uppercase names, especially short ones. One of the changes for CGI is that it should be renamed Net::CGI. I'm sick of not knowing whether someone is talking about C.G.I. or CGI.pm, CPAN.org or CPAN.pm, etc. B.pm and O.pm are just plain horrid names. And so on. But, until that mess gets cleaned up (I won't hold my breath), realize that bareword file handles have been a problem forever and this is just one more reason to avoid them. A third lesson is that all-uppercase tokens are now pretty heavily used by Perl and so you should always use mixed case in things you declare yourself that don't require a line-noise designator. That is, variable names are not a problem but function names and anything barewordish should be in mixed case these days. - tye (but my friends call me "Tye")	[reply] [d/l]
Re (tilly) 5: Filehandles vs. Packages: And the winner is... by tilly (Archbishop) on Aug 30, 2001 at 04:25 UTC
Oops, not what I was thinking at all! Here are shorter example demonstrating the bug in more detail: `perl -e 'sub new{print@_} main->new(); open main, "foo";' perl -e 'sub new{print@_} main->main::new(); open main,"foo";'` [download] And the message from the second one gives a pretty solid indication what is going wrong. (I think that this is perlbug material.) UPDATE Since tye complained, the outputs respectively are: `Can't locate object method "new" via package "IO::Handle" at -e line 1 +. GLOB(0x80d4208)` [download]	[reply] [d/l] [select]