Select Code to Download

[code 15:35] Arren@Anarres II: I did do a fix recently where getpeerna
+me() wasn't working properly on some generated symbol globs
for sockets, something seems to have changed there. Probably doesn't h
+elp.

#!/usr/bin/perl -w

...


my $smtp = Net::SMTP->new("localhost", Hello=>"localhost", Timeout=>20
+, Debug=>1) or die "$!";

No such file or directory at ./file.pl line 17.
        main::__ANON__('No such file or directory at ./file.pl line 17
+.^J') called at ./file.pl line 17

44:       if(defined $proto) {
IO::Socket::INET::_sock_info(/usr/local/lib/perl5/5.6.1/IO/Socket/INET
+.pm:45):
...
53:           return;
IO::Socket::INET::_error(/usr/local/lib/perl5/5.6.1/IO/Socket/INET.pm:
+83):

my $sock = new IO::Socket::INET (
    LocalPort => 88988,
...
    Reuse     => 1,
    Listen    => 1,
) or die "poopy: $!";

poopy: No such file or directory at ./file.pl line 10.
        main::__ANON__('poopy: No such file or directory at ./file.pl 
+line 10.^J') called at ./file.pl line 10