Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Double warning for int(undef) and abs(undef) #7278

Closed
p5pRT opened this issue May 4, 2004 · 5 comments
Closed

Double warning for int(undef) and abs(undef) #7278

p5pRT opened this issue May 4, 2004 · 5 comments
Labels
distro-Linux type-core

Comments

@p5pRT
Copy link

p5pRT commented May 4, 2004

Migrated from rt.perl.org#29346 (status was 'resolved')

Searchable as RT29346$
@p5pRT
Copy link
Author

p5pRT commented May 4, 2004

From DanVDascalescu@yahoo.com

Created by DanVDascalescu@yahoo.com

$ perl -we '$_ = int undef'
Use of uninitialized value in int at -e line 1.
Use of uninitialized value in int at -e line 1.

$ perl -we '$_ = abs undef'
Use of uninitialized value in abs at -e line 1.
Use of uninitialized value in abs at -e line 1.

Also reproduced on 5.8.0 (linux), 5.8.3 (Win32).

Hope this helps,
Dan Dascalescu

--
Do You Yahoo?! NO, THANK YOU!
Get rid of ads and banners in e-mail with Proxmail!
http​://proxmail.notlong.com

Perl Info 

Flags:
    category=core
    severity=low

Site configuration information for perl v5.8.3:

Configured by Debian Project at Thu Jan 29 16:05:07 EST 2004.

Summary of my perl5 (revision 5.0 version 8 subversion 3) configuration:
  Platform:
    osname=linux, osvers=2.4.22-xfs+ti1211, archname=i386-linux-thread-multi
    uname='linux kosh 2.4.22-xfs+ti1211 #1 sat oct 25 10:11:37 est 2003 i686 gnulinux '
    config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i386-linux -Dprefix=/usr -Dprivlib=/usr/share/perl/5.8 -Darchlib=/usr/lib/perl/5.8 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.8.3 -Dsitearch=/usr/local/lib/perl/5.8.3 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Uusesfio -Uusenm -Duseshrplib -Dlibperl=libperl.so.5.8.3 -Dd_dosuid -des'
    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='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O3',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -I/usr/local/include'
    ccversion='', gccversion='3.3.3 20040125 (prerelease) (Debian)', 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='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
    perllibs=-ldl -lm -lpthread -lc -lcrypt
    libc=/lib/libc-2.3.2.so, so=so, useshrplib=true, libperl=libperl.so.5.8.3
    gnulibc_version='2.3.2'
  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.8.3:
    /etc/perl
    /usr/local/lib/perl/5.8.3
    /usr/local/share/perl/5.8.3
    /usr/lib/perl5
    /usr/share/perl5
    /usr/lib/perl/5.8
    /usr/share/perl/5.8
    /usr/local/lib/site_perl
    .


Environment for perl v5.8.3:
    HOME=/home/knoppix
    LANG=C
    LANGUAGE=us
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/home/knoppix/.dist/bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/X11R6/bin:/usr/local/sbin:/usr/local/bin:/usr/games:.
    PERL_BADLANG (unset)
    SHELL=/bin/bash

@p5pRT
Copy link
Author

p5pRT commented May 6, 2004

From @mhx

[dandv - Tue May 04 07​:31​:54 2004]​:

This is a bug report for perl from DanVDascalescu@​yahoo.com,
generated with the help of perlbug 1.34 running under perl v5.8.3.

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

$ perl -we '$_ = int undef'
Use of uninitialized value in int at -e line 1.
Use of uninitialized value in int at -e line 1.

$ perl -we '$_ = abs undef'
Use of uninitialized value in abs at -e line 1.
Use of uninitialized value in abs at -e line 1.

Also reproduced on 5.8.0 (linux), 5.8.3 (Win32).

Thank you for your report.
This is fixed by the patch below.

Marcus

Change 22796 by mhx@​mhx-r2d2 on 2004/05/06 17​:19​:17

  [perl #29346] Double warning for int(undef) and abs(undef)
  Remove the duplicate warnings and update tests.

Affected files ...

... //depot/perl/pp.c#416 edit
... //depot/perl/t/lib/warnings/9uninit#3 edit

Differences ...

==== //depot/perl/pp.c#416 (text) ====

@​@​ -2800,7 +2800,9 @​@​
  else preferring IV has introduced a subtle behaviour change bug. OTOH
  relying on floating point to be accurate is a bug. */

- if (SvIOK(TOPs)) {
+ if (!SvOK(TOPs))
+ SETu(0);
+ else if (SvIOK(TOPs)) {
  if (SvIsUV(TOPs)) {
  UV uv = TOPu;
  SETu(uv);
@​@​ -2834,7 +2836,9 @​@​
  /* This will cache the NV value if string isn't actually integer */
  IV iv = TOPi;

- if (SvIOK(TOPs)) {
+ if (!SvOK(TOPs))
+ SETu(0);
+ else if (SvIOK(TOPs)) {
  /* IVX is precise */
  if (SvIsUV(TOPs)) {
  SETu(TOPu); /* force it to be numeric only */

==== //depot/perl/t/lib/warnings/9uninit#3 (text) ====

@​@​ -505,8 +505,6 @​@​
$v = abs($g2);
EXPECT
Use of uninitialized value $g1 in int at - line 5.
-Use of uninitialized value $g1 in int at - line 5.
-Use of uninitialized value $g2 in abs at - line 6.
Use of uninitialized value $g2 in abs at - line 6.
########
use warnings 'uninitialized';

@p5pRT
Copy link
Author

p5pRT commented May 6, 2004

The RT System itself - Status changed from 'new' to 'open'

@p5pRT
Copy link
Author

p5pRT commented May 6, 2004

@mhx - Status changed from 'open' to 'resolved'

@p5pRT p5pRT closed this as completed May 6, 2004
@p5pRT
Copy link
Author

p5pRT commented May 6, 2004

From @ysth

On Tue, May 04, 2004 at 02​:31​:54PM -0000, Dan Dascalescu <perlbug-followup@​perl.org> wrote​:

$ perl -we '$_ = int undef'
Use of uninitialized value in int at -e line 1.
Use of uninitialized value in int at -e line 1.

$ perl -we '$_ = abs undef'
Use of uninitialized value in abs at -e line 1.
Use of uninitialized value in abs at -e line 1.

Unsurprisingly, both also do double magic.
Also true for a not-so-recent bleadperl.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Assignees
No one assigned
Labels
distro-Linux type-core
Projects
None yet
Milestone
No milestone
Development

No branches or pull requests
1 participant
@p5pRT