Hair-pulling Switch bug ?

[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

 

[Steve Grazzini]

==================================
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)

I think it has to be a bug in Switch. The line with "<$handle>" is
getting source-filter-borked into "< $handle>", which parses as a glob()
instead of a readline().