W
Willem
Hello! What is going wrong in the following example?
==================================
use IO::Socket;
use Switch;
$handle = IO::Socket::INET->new("smtp.utwente.nl:25")
or die "can't connect: $!";
while (defined ($line = <$handle>)) {
print STDOUT $line;
last;
}
# switch
==================================
This spits out:
IO::Socket::INET=GLOB(0x8341060)
If I remove the last "# switch\n" line, it works okay. Why does Switch mess
up IO::Socket and why isn't that comment ignored?
Perl v5.8.0
Switch v2.09
Thanks !
Willem
==================================
use IO::Socket;
use Switch;
$handle = IO::Socket::INET->new("smtp.utwente.nl:25")
or die "can't connect: $!";
while (defined ($line = <$handle>)) {
print STDOUT $line;
last;
}
# switch
==================================
This spits out:
IO::Socket::INET=GLOB(0x8341060)
If I remove the last "# switch\n" line, it works okay. Why does Switch mess
up IO::Socket and why isn't that comment ignored?
Perl v5.8.0
Switch v2.09
Thanks !
Willem