CC: | bug-Socket6 [...] rt.cpan.org |
Subject: | [perl #101574] Socket6 accept(clone,server) |
Date: | Mon, 05 Dec 2011 19:03:31 -0800 |
To: | "OtherRecipients of perl Ticket #101574":; |
From: | "Father Chrysostomos via RT" <perlbug-followup [...] perl.org> |
Forwarding to the CPAN queue....
On Mon Oct 17 23:05:27 2011, root@grommet.slackware.lan wrote:
Show quoted text
> This is a bug report for perl from root@grommet.slackware.lan,
> generated with the help of perlbug 1.33 running under perl v5.6.1.
>
>
> -----------------------------------------------------------------
> [Please enter your report here]
>
> Socket6 does not return ::1
>
> Socket6 0.23
>
> tcp connection to localhost
> same result with
> server bound to in6addr_any or in6addr_loopback
>
> vacant $PORT used for testing
>
> client connect to in6addr_loopback
>
> on server side
> $paddr = accept($clone,$server)
>
> returns funny netaddr
>
> netstat -na immediately following close
>
> tcp 0 0 ::1:10000 ::1:60084
> TIME_WAIT
> tcp 0 0 ::1:10000 ::1:60080
> TIME_WAIT
>
> ifconfig
> lo Link encap:Local Loopback
> inet addr:127.0.0.1 Mask:255.0.0.0
> inet6 addr: ::1/128 Scope:Host
> UP LOOPBACK RUNNING MTU:16436 Metric:1
>
> unpack('C*',$paddr);
> 10 0 234 204 0 0 0 0 0 0 0 0 0 0 0 0 236 247 255 191 128 106 9 8 0 0 0
> 0
>
> text result from unpack_sockaddr_in6_all
> port, 60084, flow 0, scope 0 0:0:0:0:ecf7:ffbf:806a:908
>
> This appears to be a flaw in "accept"
>
>
> [Please do not change anything below this line]
> -----------------------------------------------------------------
> ---
> Flags:
> category=library
> severity=medium
> ---
> Site configuration information for perl v5.6.1:
>
> Configured by root at Wed Apr 11 22:55:30 PDT 2001.
>
> Summary of my perl5 (revision 5.0 version 6 subversion 1)
> configuration:
> Platform:
> osname=linux, osvers=2.4.2, archname=i386-linux
> uname='linux grommet 2.4.2 #1 smp sun feb 25 16:33:33 pst 2001
> i686 unknown '
> config_args='-de -Dprefix=/usr -Darchname=i386-linux
> -Dprivlib=/usr/lib/perl5 -Darchlib=/usr/lib/perl5/i386-linux
> -Dsitelib=/usr/lib/perl5/site_perl
> -Dsitearch=/usr/lib/perl5/site_perl/i386-linux'
> hint=recommended, useposix=true, d_sigaction=define
> usethreads=undef use5005threads=undef useithreads=undef
> usemultiplicity=undef
> useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
> use64bitint=undef use64bitall=undef uselongdouble=undef
> Compiler:
> cc='cc', ccflags ='-fno-strict-aliasing -I/usr/local/include
> -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
> optimize='-O2',
> cppflags='-fno-strict-aliasing -I/usr/local/include'
> ccversion='', gccversion='2.95.3 20010315 (release)',
> 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, usemymalloc=n, prototype=define
> Linker and Libraries:
> ld='cc', ldflags =' -L/usr/local/lib'
> libpth=/usr/local/lib /lib /usr/lib
> libs=-lnsl -lndbm -lgdbm -ldl -lm -lc -lcrypt -lutil
> perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil
> libc=/lib/libc-2.2.2.so, so=so, useshrplib=false,
> libperl=libperl.a
> Dynamic Linking:
> dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-
> rdynamic'
> cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
>
> Locally applied patches:
>
>
> ---
> @INC for perl v5.6.1:
> /usr/lib/perl5/i386-linux
> /usr/lib/perl5
> /usr/lib/perl5/site_perl/i386-linux
> /usr/lib/perl5/site_perl
> /usr/lib/perl5/site_perl
> .
>
> ---
> Environment for perl v5.6.1:
> HOME=/root
> LANG (unset)
> LANGUAGE (unset)
> LC_ALL=POSIX
> LD_LIBRARY_PATH (unset)
> LOGDIR (unset)
>
PATH=/usr/local/sbin:/usr/sbin:/sbin:/usr/local/bin:/usr/bin:/bin:/usr/X11R6/bin:/usr/local/ssl/bin:/opt/www/htdig/bin:/opt/kde/bin:/opt/sgml/bin:/usr/share/texmf/bin:/usr/openwin/bin
Show quoted text> PERL_BADLANG (unset)
> SHELL=/bin/bash
--
Father Chrysostomos