develooper Front page | perl.perl5.porters | Postings from November 2000

[ID 20001120.003] [PATCH] io_udp.t fails without 'localhost'

Thread Next
From:
Casey Tweten
Date:
November 20, 2000 08:53
Subject:
[ID 20001120.003] [PATCH] io_udp.t fails without 'localhost'
Message ID:
200011201653.LAA10194@home.kiski.net

This is a bug report for perl from crt@kiski.net,
generated with the help of perlbug 1.33 running under perl v5.7.0.


-----------------------------------------------------------------
[Please enter your report here]

Same situations as i/lib/io_sock.t

*** t/lib/io_udp.t.orig	Mon Nov 20 11:46:39 2000
--- t/lib/io_udp.t	Mon Nov 20 11:50:44 2000
***************
*** 57,75 ****
  use Socket;
  use IO::Socket qw(AF_INET SOCK_DGRAM INADDR_ANY);
  
-     # This can fail if localhost is undefined or the
-     # special 'loopback' address 127.0.0.1 is not configured
-     # on your system. (/etc/rc.config.d/netconfig on HP-UX.)
-     # As a shortcut (not recommended) you could change 'localhost'
-     # here to be the name of this machine eg 'myhost.mycompany.com'.
- 
  $udpa = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost')
!     or die "$! (maybe your system does not have the 'localhost' address defined)";
  
  print "ok 1\n";
  
  $udpb = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost')
!     or die "$! (maybe your system does not have the 'localhost' address defined)";
  
  print "ok 2\n";
  
--- 57,71 ----
  use Socket;
  use IO::Socket qw(AF_INET SOCK_DGRAM INADDR_ANY);
  
  $udpa = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost')
!      || IO::Socket::INET->new(Proto => 'udp', LocalAddr => '127.0.0.1')
!     or die "$! (maybe your system does not have a localhost at all, 'localhost' or 127.0.0.1)";
  
  print "ok 1\n";
  
  $udpb = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost')
!      || IO::Socket::INET->new(Proto => 'udp', LocalAddr => '127.0.0.1')
!     or die "$! (maybe your system does not have a localhost at all, 'localhost' or 127.0.0.1)";
  
  print "ok 2\n";
  

[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
    category=install
    severity=medium
---
Site configuration information for perl v5.7.0:

Configured by crt at Fri Nov 17 15:32:40 EST 2000.

Summary of my perl5 (revision 5.0 version 7 subversion 0) configuration:
  Platform:
    osname=dec_osf, osvers=4.0e, archname=alpha-dec_osf
    uname='osf1 home.kiski.net v4.0 1091 alpha '
    config_args=''
    hint=previous, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=define use64bitall=define uselongdouble=undef
  Compiler:
    cc='cc', ccflags ='-std -fprm d -ieee -D_INTRINSICS -I/usr/local/include -DLANGUAGE_C',
    optimize='-O4',
    cppflags='-std -ieee -D_INTRINSICS -I/usr/local/include -DLANGUAGE_C'
    ccversion='V5.8-009', gccversion='', gccosandvers=''
    intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=8
    ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='ld', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /var/shlib
    libs=-ldbm -ldb -lm -liconv -lutil
    perllibs=-lm -liconv -lutil
    libc=/usr/shlib/libc.so, so=so, useshrplib=true, libperl=libperl.so
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='  -Wl,-rpath,/usr/home/crt/perl/lib/5.7.0/alpha-dec_osf/CORE'
    cccdlflags=' ', lddlflags='-shared -expect_unresolved "*" -O4 -msym -std -s -L/usr/local/lib'

Locally applied patches:
    DEVEL7706

---
@INC for perl v5.7.0:
    /usr/home/crt/perl/lib/5.7.0/alpha-dec_osf
    /usr/home/crt/perl/lib/5.7.0
    /usr/home/crt/perl/lib/site_perl/5.7.0/alpha-dec_osf
    /usr/home/crt/perl/lib/site_perl/5.7.0
    /usr/home/crt/perl/lib/site_perl
    .

---
Environment for perl v5.7.0:
    HOME=/usr/home/crt
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/usr/home/crt/perl/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/bin:/usr/local/sbin:/etc/raddb:/usr/home/crt/bin:/usr/home/crt:.
    PERL_BADLANG (unset)
    SHELL=/usr/local/bin/bash


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About