(A. Sinan Unur said:
John W. Krahn said:
I downloaded a Perl program recently and encountered this line:
if(exists $_[0]->{"name"} and scalar($_[0]->{"name"}) eq
$_[0]->{"name"}){
Maybe we need a
alt.perl-maintainer.recovery
newsgroup.
Sign me up. I get to interface with plenty of code that looks as
though it may predate Perl4. No strictures, no warnings, and every
package you import dumps a couple of dozen variable and function names
into main whether you like it or not. I really got a kick out of
seeing this in one of the libraries:
$SocAF_INET = 2;
$SocSTREAM = 1;
...
...and then reading in the Camel book:
# One problem with ancient socket code in Perl was that people
# would use hard-coded values for constants passed into socket
# functions, which destroys portability. ... If you ever see code
# that does anything like explicitly setting $AF_INET = 2, you
# know you're in for big trouble.
Rick