develooper Front page | perl.perl5.porters | Postings from May 2015

[perl #125298] warnings.t one failure in IRIX 6.5

Thread Previous
From:
Jarkko Hietaniemi
Date:
May 31, 2015 19:29
Subject:
[perl #125298] warnings.t one failure in IRIX 6.5
Message ID:
rt-4.0.18-27900-1433100575-1330.125298-75-0@perl.org
# New Ticket Created by  Jarkko Hietaniemi 
# Please include the string:  [perl #125298]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=125298 >


I thought I had filed this already, but cannot find it ... so here goes, with blead, which is 5.22.0 minus epsilon.
Certainly not a showstopper for 5.22.

lib/warnings .................................................. PROG: 
my $nan = sin 9**9**9;
if ($nan == $nan) {
    print <<EOM ;
SKIPPED
# No nan support
EOM
    exit ;
}
use warnings 'uninitialized';
# The optimised {$a<=>$b} case should behave the same way as unoptimised.
@sort = sort { ($a)[0] <=> $b } 1, $nan;
@sort = sort {  $a     <=> $b } 1, $nan;
EXPECTED:
Use of uninitialized value in sort at - line 11.
Use of uninitialized value in sort at - line 12.
GOT:
Use of uninitialized value in sort at - line 11.
# Failed test 260 - at lib/warnings/9uninit line 671

FAILED at test 260


--
./perl -Ilib -V

Summary of my perl5 (revision 5 version 22 subversion 0) configuration:
   
  Platform:
    osname=irix, osvers=6.5, archname=IP35-irix
    uname='irix64 irix 6.5 07202013 ip35 '
    config_args='-des -Dusedevel'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=undef, usemultiplicity=undef
    use64bitint=undef, use64bitall=undef, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc -n32', ccflags ='-D_BSD_TYPES -D_BSD_TIME -woff 1184,1552 -c99 -U__IN
LINE_INTRINSICS -DLANGUAGE_C',
    optimize='-O3 -OPT:Olimit=0:space=ON',
    cppflags='-D_BSD_TYPES -D_BSD_TIME -woff 1184,1552 -c99 -U__INLINE_INTRINSIC
S -DLANGUAGE_C'
    ccversion='MIPSpro Compilers: Version 7.4', gccversion='', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321, doublekind=4
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16, longdbl
kind=6
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize
=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='cc -n32', ldflags =' -Wl,-woff,84 -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib32 /lib32 /lib /usr/lib /lib64 /usr/lib64
    libs=-lcl -lpthread -ldb -lm -lc
    perllibs=-lcl -lpthread -lm -lc
    libc=/usr/lib32/libc.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-n32 -shared -L/usr/local/lib'


Thread Previous


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