Select Code to Download

main::die_catcher('Assertion ((svtype)((sv)->sv_flags & 0xff)) != 0xff
+ failed: f...') called at /usr/local/lib/perl5/5.10.1/mach/IO/Handle.
+pm line 480
IO::Handle::autoflush('IO::Socket::UNIX=GLOB(0x802a5bff0)', 1) called 
+at /usr/local/lib/perl5/5.10.1/mach/IO/Socket.pm line 44
IO::Socket::new('IO::Socket::UNIX', 'Peer', '/var/HA/myUNIXDomainSocke
+t', 'Type', 1) called at /usr/local/lib/perl5/5.10.1/mach/IO/Socket/U
+NIX.pm line 23
IO::Socket::UNIX::new('IO::Socket::UNIX', 'Peer', '/var/HA/myUNIXDomai
+nSocket', 'Type', 1) called at /usr/local/lib/perl5/site_perl/5.10.1/
+myLibrary.pm line 290

my $connection = IO::Socket::UNIX->new( 
        Peer => $uds_path,
        Type => SOCK_STREAM
);

Assertion ((svtype)((sv)->sv_flags & 0xff)) != 0xff failed: file "sv.c
+", line 5400 at /usr/local/lib/perl5/5.10.1/mach/IO/Handle.pm line 48
+0.