# New Ticket Created by Salvador Fandiño
# Please include the string: [perl #36350]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36350 >
This is a bug report for perl from [EMAIL PROTECTED],
generated with the help of perlbug 1.35 running under perl v5.8.5.
-----------------------------------------------------------------
[Please enter your report here]
sorting a list of numbers as integers (via 'use integer') in
descending order gives an unstable sort:
$ perl
use sort stable;
@a=(2.7, 1.7, 1, 4.8, 4.3, 0.8);
use integer;
@u = sort { $b <=> $a } @a;
@s = sort { int $b <=> int $a } @a;
sub pa { print join(", ", @_), "\n"}
pa @a; pa @s; pa @u'
__END__
2.7, 1.7, 1, 4.8, 4.3, 0.8
4.8, 4.3, 2.7, 1.7, 1, 0.8
4.3, 4.8, 2.7, 1, 1.7, 0.8
Cheers,
- Salvador.
[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
category=core
severity=medium
---
Site configuration information for perl v5.8.5:
Summary of my perl5 (revision 5 version 8 subversion 5)
configuration:
Platform:
osname=solaris, osvers=2.9, archname=sun4-solaris
uname='sunos 5.9 generic sun4u sparc sunw,ultra-5_10 solaris '
config_args='-Dcc=gcc -B/usr/ccs/bin/'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='gcc -B/usr/ccs/bin/', ccflags ='-fno-strict-aliasing -pipe
-I/usr/local/include -I/opt/gnu/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64',
optimize='-O',
cppflags='-fno-strict-aliasing -pipe -I/usr/local/include
-I/opt/gnu/include'
ccversion='', gccversion='3.3.2', gccosandvers='solaris2.9'
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=4321
d_longlong=define, longlongsize=8, d_longdbl=define,
longdblsize=16
ivtype='long', ivsize=4, nvtype='double', nvsize=8,
Off_t='off_t', lseeksize=8
alignbytes=8, prototype=define
Linker and Libraries:
ld='gcc -B/usr/ccs/bin/', ldflags =' -L/usr/local/lib
-L/opt/gnu/lib '
libpth=/usr/local/lib /opt/gnu/lib /usr/lib /usr/ccs/lib
libs=-lsocket -lbind -lnsl -lgdbm -ldb -ldl -lm -lc
perllibs=-lsocket -lbind -lnsl -ldl -lm -lc
libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
gnulibc_version=''
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib
-L/opt/gnu/lib'
Locally applied patches:
---
@INC for perl v5.8.5:
/usr/local/lib/perl5/5.8.5/sun4-solaris
/usr/local/lib/perl5/5.8.5
/usr/local/lib/perl5/site_perl/5.8.5/sun4-solaris
/usr/local/lib/perl5/site_perl/5.8.5
/usr/local/lib/perl5/site_perl
.
---
Environment for perl v5.8.5:
HOME=/export/home/salva
LANG (unset)
LANGUAGE (unset)
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=/usr/local/bin/:/usr/local/mysql/bin:/usr/bin:/bin:/usr/sbin:/sbin
PERL_BADLANG (unset)
SHELL=/usr/bin/bash
____________________________________________________
Yahoo! Sports
Rekindle the Rivalries. Sign up for Fantasy Football
http://football.fantasysports.yahoo.com
