2006/07/03 16:19:06 IO::Socket::INET::new(): IO::Socket::INET: No such file or directory at notifyd.pl line 229

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use Log::Log4perl qw( :easy );
#Log::Log4perl->easy_init($DEBUG); # NOTE: COMMENTED HERE

my %listener_parameters = (
   Proto     => 'udp',
   Blocking  => 1,
   ReuseAddr => 1,
);
my $listener = new IO::Socket::INET(%listener_parameters)
  or die "IO::Socket::INET::new(): '$@'";

__END__

C:\Documents and Settings\Administrator\Desktop\mms>perl case.pl
IO::Socket::INET::new(): 'IO::Socket::INET: ' at case.pl line 13.

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use Log::Log4perl qw( :easy );
Log::Log4perl->easy_init($DEBUG); # RESTORED LINE

my %listener_parameters = (
   Proto     => 'udp',
   Blocking  => 1,
   ReuseAddr => 1,
);
my $listener = new IO::Socket::INET(%listener_parameters)
  or die "IO::Socket::INET::new(): '$@'";

__END__

C:\Documents and Settings\Administrator\Desktop\mms>perl case.pl
IO::Socket::INET::new(): 'IO::Socket::INET: Bad file descriptor' at case.pl line 13.