develooper Front page | perl.perl5.porters | Postings from July 2005

[perl #36675] -'-10' eq '+10'

From:
Piotr Fusik
Date:
July 27, 2005 16:36
Subject:
[perl #36675] -'-10' eq '+10'
Message ID:
rt-3.0.11-36675-118380.19.1409193784401@perl.org
# New Ticket Created by  "Piotr Fusik" 
# Please include the string:  [perl #36675]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=36675 >


This is a bug report for perl from pfusik@op.pl,
generated with the help of perlbug 1.35 running under perl v5.8.7.


-----------------------------------------------------------------

The behavior of the unary minus operator is inconsistent between
strings representing positive and negative numbers:

perl -le 'print for -"10",-"10.0",-"10foo",-"-10",-"-10.0",-"-10foo",-" -10",-" -10.0",-" -10foo"'
-10
-10
-10
+10
+10.0
+10foo
10
10
10

Perl guesses whether the argument of '-' is a number.
I think that all strings in the above example represent numbers.
Note that strings starting with a minus are not treated as numbers
-- I think they should be. However, with a leading space, they _are_
treated as numbers.

-----------------------------------------------------------------
---
Flags:
    category=core
    severity=medium
---
Site configuration information for perl v5.8.7:

Configured by ActiveState at Sat Jun  4 07:30:27 PDT 2005.

Summary of my perl5 (revision 5 version 8 subversion 7) configuration:
  Platform:
    osname=linux, osvers=2.2.17, archname=i686-linux-thread-multi
    uname='linux gimlet 2.2.17 #1 sun jun 25 09:24:41 est 2000 i686 unknown '




config_args='-ders -Dcc=gcc -Dusethreads -Duseithreads -Ud_sigsetjmp -Uinstallusrbinperl -Ulocincpth= -Uloclibpth= -Accflags=-DUSE_S
ITECUSTOMIZE -Duselargefiles -Accflags=-DNO_HASH_SEED -Uusemallocwrap -Dinc_version_list=5.8.6/$archname 5.8.6 5.8.4/$archname 5.8.4
5.8.3/$archname 5.8.3 5.8.2/$archname 5.8.2 5.8.1/$archname 5.8.1 5.8.0/$archname
5.8.0 -Duseshrplib -Dprefix=/opt/ActivePerl-5.8 -Accflags=-DBUILT_BY_ACTIVESTATE -Dcf_by=ActiveState -Dcf_email=support@ActiveState.
com'
    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='gcc', ccflags
='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DUSE_SITECUSTOMIZE -DNO_HASH_SEED -DBUILT_BY_ACTIVESTATE -fno-strict-aliasing -pip
e -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2',




cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DUSE_SITECUSTOMIZE -DNO_HASH_SEED -DBUILT_BY_ACTIVESTATE -fno-strict-alias
ing -pipe'
    ccversion='', gccversion='2.95.2 20000220 (Debian GNU/Linux)', 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='gcc', ldflags =''
    libpth=/lib /usr/lib /usr/local/lib
    libs=-lnsl -lndbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc -lposix
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc -lposix
    libc=/lib/libc-2.1.3.so, so=so, useshrplib=true, libperl=libperl.so
    gnulibc_version='2.1.3'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef,
ccdlflags='-Wl,-E -Wl,-rpath,/opt/ActivePerl-5.8/lib/5.8.7/i686-linux-thread-multi/CORE'
    cccdlflags='-fpic', lddlflags='-shared'

Locally applied patches:
    ACTIVEPERL_LOCAL_PATCHES_ENTRY
    #  if !defined(PERL_DARWIN)
    Iin_load_module moved for compatibility with build 806
    #  endif
    #  if defined(__hpux)
    Avoid signal flag SA_RESTART for older versions of HP-UX
    #  endif
    PerlEx hacks for CGI::Carp
    Less verbose ExtUtils::Install and Pod::Find
    instmodsh upgraded from ExtUtils-MakeMaker-6.25
    24699 ICMP_UNREACHABLE handling in Net::Ping
    21540 Fix backward-compatibility issues in if.pm

---
@INC for perl v5.8.7:
    /opt/ActivePerl-5.8/lib/5.8.7/i686-linux-thread-multi
    /opt/ActivePerl-5.8/lib/5.8.7
    /opt/ActivePerl-5.8/lib/site_perl/5.8.7/i686-linux-thread-multi
    /opt/ActivePerl-5.8/lib/site_perl/5.8.7
    /opt/ActivePerl-5.8/lib/site_perl
    .

---
Environment for perl v5.8.7:
    HOME=/home/fox
    LANG=en_US.UTF-8
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/opt/ActivePerl-5.8/bin:/usr/local/bin:/usr/bin:/bin:/usr/X11R6/bin:/usr/java/j2sdk1.4.2_01/bin:/home/fox/bin
    PERL_BADLANG (unset)
    SHELL=/bin/bash






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