Front page | perl.perl5.porters |
Postings from January 2004
IO::Socket weirdness
Thread Next
From:
Gaal Yahas
Date:
January 28, 2004 17:06
Subject:
IO::Socket weirdness
Message ID:
20040128205828.GD704@sike.forum2.org
perl 5.8.2 (from Debian unstable; -V output at bottom)
IO::Socket::INET 1.27
IO::Socket 1.28
I'm having trouble opening a listener TCP socket. It seems that
the library is trying to resolve something it rather shouldn't --
a stringified hashref. Here's a minimal test case.
% cat > t ; perl t
use IO::Socket;
my $sock = IO::Socket::INET->new({
Listen => 1,
Proto => ‘tcp’,
LocalAddr => ‘127.0.0.1:9092’,
}) or die “Socket error: $!\n”;
^D
Socket error: Invalid argument
%
...
# tcpdump -i ppp0 port 53 &
tcpdump: listening on ppp0
...
% perl t
20:04:14.657976 192.115.25.249.32822 > 192.114.47.4.domain: 62579+ A? HASH(0x815dc10). (33) (DF)
20:04:14.685270 192.114.47.4.domain > 192.115.25.249.32822: 62579 NXDomain 0/1/0 (108) (DF)
Look at the DNS query.
Here's my perl -V:
Summary of my perl5 (revision 5.0 version 8 subversion 2) configuration:
Platform:
osname=linux, osvers=2.4.22-xfs+ti1211, archname=i386-linux-thread-multi
uname='linux kosh 2.4.22-xfs+ti1211 #1 sat oct 25 10:11:37 est 2003 i686 gnulinux '
config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i386-
linux -Dprefix=/usr -Dprivlib=/usr/share/perl/5.8.2 -Darchlib=/usr/lib/perl/5.8.2 -Dvendorprefix=/us
r -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/lo
cal/share/perl/5.8.2 -Dsitearch=/usr/local/lib/perl/5.8.2 -Dman1dir=/usr/share/man/man1 -Dman3dir=/u
sr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -D
man3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Uusesfio -Uusenm -Duseshrplib -Dlibperl
=libperl.so.5.8.2 -Dd_dosuid -des'
hint=recommended, useposix=true, d_sigaction=define
usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing
-I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O3',
cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -I/usr/lo
cal/include'
ccversion='', gccversion='3.3.2 (Debian)', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=4, prototype=define
Linker and Libraries:
ld='cc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
perllibs=-ldl -lm -lpthread -lc -lcrypt
libc=/lib/libc-2.3.2.so, so=so, useshrplib=true, libperl=libperl.so.5.8.2
gnulibc_version='2.3.2'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: MULTIPLICITY USE_ITHREADS USE_LARGE_FILES PERL_IMPLICIT_CONTEXT
Built under linux
Compiled at Nov 15 2003 17:52:08
%ENV:
PERL5LIB=""
@INC:
/etc/perl
/usr/local/lib/perl/5.8.2
/usr/local/share/perl/5.8.2
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.8.2
/usr/share/perl/5.8.2
/usr/local/lib/site_perl
/usr/local/lib/perl/5.8.0
/usr/local/share/perl/5.8.0
--
Gaal Yahas <gaal@forum2.org>
http://gaal.livejournal.com/
Thread Next
-
IO::Socket weirdness
by Gaal Yahas