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.

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

B::Deparse precedence bug. (Patch included.) #3592

Closed
p5pRT opened this issue Mar 19, 2001 · 13 comments
Closed

B::Deparse precedence bug. (Patch included.) #3592

p5pRT opened this issue Mar 19, 2001 · 13 comments

Comments

@p5pRT
Copy link

p5pRT commented Mar 19, 2001

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

Searchable as RT6148$

@p5pRT
Copy link
Author

p5pRT commented Mar 19, 2001

From jmadea@inktomi.com

### The following should make the problem obvious.
101,0 jmadea@​dr​:~$ perl -le 'print( -1 ** $a )'
-1
102,0 jmadea@​dr​:~$ perl -le 'print( (-1) ** $a )'
1
103,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print -1 ** $a;
-e syntax OK

### Two quick tests made after patching...
104,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print((-1) ** $a);
-e syntax OK
105,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( -1 ** $a )'
print -1 ** $a;
-e syntax OK

### Text of patch for Deparse.pm
2384c2384,2386
< return const($sv);
---

# return const($sv);
my $c = const $sv;
return $c < 0 ? $self->maybe_parens($c, $cx, 21) : $c;

--
Jeremy Madea Inktomi Corporation http​://www.inktomi.com/
jmadea@​inktomi.com Search/Custom Cluster Administrator
work​: 650.653.6970 ``My two cents aren't worth a dime.''

Perl Info

Flags:
    category=library
    severity=low

Site configuration information for perl v5.6.0:

Configured by sauoq at Mon Oct 30 19:03:21 PST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=solaris, osvers=2.7, archname=sun4-solaris
    uname='sunos dr 5.7 generic_106541-02 sun4u sparc sunw,ultra-5_10 '
    config_args='-ds -e -Dprefix=/usr/local/ -Dcc='/usr/gnu/bin/gcc''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='/usr/gnu/bin/gcc', optimize='-O', gccversion=2.95 19990728 (release)
    cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include'
    ccflags ='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    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, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/usr/gnu/bin/gcc', ldflags =' -L/usr/local/lib -L/usr/gnu/lib '
    libpth=/usr/local/lib /usr/gnu/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec -liconv
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib -L/usr/gnu/lib'

Locally applied patches:
    


@INC for perl v5.6.0:
    /usr/local//lib/perl5/5.6.0/sun4-solaris
    /usr/local//lib/perl5/5.6.0
    /usr/local//lib/perl5/site_perl/5.6.0/sun4-solaris
    /usr/local//lib/perl5/site_perl/5.6.0
    /usr/local//lib/perl5/site_perl
    .


Environment for perl v5.6.0:
    HOME=/home/jmadea
    LANG=en_US
    LANGUAGE (unset)
    LC_ALL=C
    LC_CTYPE=C
    LD_LIBRARY_PATH=/usr/local/lib:/usr/gnu/lib
    LOGDIR (unset)
    PATH=/home/jmadea/bin:/usr/gnu/bin:/usr/openwin/bin:/bin:/usr/bin:/usr/sbin:/usr/X/bin:/sbin:/usr/local/bin:/usr/local/sbin:/usr/ucb:/usr/dt/bin:/usr/ccs/bin:/etc:/usr/local/netscape
    PERL_BADLANG (unset)
    SHELL=/bin/bash


1 similar comment
@p5pRT
Copy link
Author

p5pRT commented Mar 19, 2001

From jmadea@inktomi.com

### The following should make the problem obvious.
101,0 jmadea@​dr​:~$ perl -le 'print( -1 ** $a )'
-1
102,0 jmadea@​dr​:~$ perl -le 'print( (-1) ** $a )'
1
103,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print -1 ** $a;
-e syntax OK

### Two quick tests made after patching...
104,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print((-1) ** $a);
-e syntax OK
105,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( -1 ** $a )'
print -1 ** $a;
-e syntax OK

### Text of patch for Deparse.pm
2384c2384,2386
< return const($sv);
---

# return const($sv);
my $c = const $sv;
return $c < 0 ? $self->maybe_parens($c, $cx, 21) : $c;

--
Jeremy Madea Inktomi Corporation http​://www.inktomi.com/
jmadea@​inktomi.com Search/Custom Cluster Administrator
work​: 650.653.6970 ``My two cents aren't worth a dime.''

Perl Info

Flags:
    category=library
    severity=low

Site configuration information for perl v5.6.0:

Configured by sauoq at Mon Oct 30 19:03:21 PST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=solaris, osvers=2.7, archname=sun4-solaris
    uname='sunos dr 5.7 generic_106541-02 sun4u sparc sunw,ultra-5_10 '
    config_args='-ds -e -Dprefix=/usr/local/ -Dcc='/usr/gnu/bin/gcc''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='/usr/gnu/bin/gcc', optimize='-O', gccversion=2.95 19990728 (release)
    cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include'
    ccflags ='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    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, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/usr/gnu/bin/gcc', ldflags =' -L/usr/local/lib -L/usr/gnu/lib '
    libpth=/usr/local/lib /usr/gnu/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec -liconv
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib -L/usr/gnu/lib'

Locally applied patches:
    


@INC for perl v5.6.0:
    /usr/local//lib/perl5/5.6.0/sun4-solaris
    /usr/local//lib/perl5/5.6.0
    /usr/local//lib/perl5/site_perl/5.6.0/sun4-solaris
    /usr/local//lib/perl5/site_perl/5.6.0
    /usr/local//lib/perl5/site_perl
    .


Environment for perl v5.6.0:
    HOME=/home/jmadea
    LANG=en_US
    LANGUAGE (unset)
    LC_ALL=C
    LC_CTYPE=C
    LD_LIBRARY_PATH=/usr/local/lib:/usr/gnu/lib
    LOGDIR (unset)
    PATH=/home/jmadea/bin:/usr/gnu/bin:/usr/openwin/bin:/bin:/usr/bin:/usr/sbin:/usr/X/bin:/sbin:/usr/local/bin:/usr/local/sbin:/usr/ucb:/usr/dt/bin:/usr/ccs/bin:/etc:/usr/local/netscape
    PERL_BADLANG (unset)
    SHELL=/bin/bash


@p5pRT
Copy link
Author

p5pRT commented Mar 19, 2001

From jmadea@inktomi.com

### The following should make the problem obvious.
101,0 jmadea@​dr​:~$ perl -le 'print( -1 ** $a )'
-1
102,0 jmadea@​dr​:~$ perl -le 'print( (-1) ** $a )'
1
103,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print -1 ** $a;
-e syntax OK

### Two quick tests made after patching...
104,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print((-1) ** $a);
-e syntax OK
105,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( -1 ** $a )'
print -1 ** $a;
-e syntax OK

### Text of patch for Deparse.pm
2384c2384,2386
< return const($sv);
---

# return const($sv);
my $c = const $sv;
return $c < 0 ? $self->maybe_parens($c, $cx, 21) : $c;

--
Jeremy Madea Inktomi Corporation http​://www.inktomi.com/
jmadea@​inktomi.com Search/Custom Cluster Administrator
work​: 650.653.6970 ``My two cents aren't worth a dime.''

Perl Info

Flags:
    category=library
    severity=low

Site configuration information for perl v5.6.0:

Configured by sauoq at Mon Oct 30 19:03:21 PST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=solaris, osvers=2.7, archname=sun4-solaris
    uname='sunos dr 5.7 generic_106541-02 sun4u sparc sunw,ultra-5_10 '
    config_args='-ds -e -Dprefix=/usr/local/ -Dcc='/usr/gnu/bin/gcc''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='/usr/gnu/bin/gcc', optimize='-O', gccversion=2.95 19990728 (release)
    cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include'
    ccflags ='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    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, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/usr/gnu/bin/gcc', ldflags =' -L/usr/local/lib -L/usr/gnu/lib '
    libpth=/usr/local/lib /usr/gnu/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec -liconv
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib -L/usr/gnu/lib'

Locally applied patches:
    


@INC for perl v5.6.0:
    /usr/local//lib/perl5/5.6.0/sun4-solaris
    /usr/local//lib/perl5/5.6.0
    /usr/local//lib/perl5/site_perl/5.6.0/sun4-solaris
    /usr/local//lib/perl5/site_perl/5.6.0
    /usr/local//lib/perl5/site_perl
    .


Environment for perl v5.6.0:
    HOME=/home/jmadea
    LANG=en_US
    LANGUAGE (unset)
    LC_ALL=C
    LC_CTYPE=C
    LD_LIBRARY_PATH=/usr/local/lib:/usr/gnu/lib
    LOGDIR (unset)
    PATH=/home/jmadea/bin:/usr/gnu/bin:/usr/openwin/bin:/bin:/usr/bin:/usr/sbin:/usr/X/bin:/sbin:/usr/local/bin:/usr/local/sbin:/usr/ucb:/usr/dt/bin:/usr/ccs/bin:/etc:/usr/local/netscape
    PERL_BADLANG (unset)
    SHELL=/bin/bash


@p5pRT
Copy link
Author

p5pRT commented Mar 22, 2001

From jmadea@dr.inktomi.com

### The following should make the problem obvious.
101,0 jmadea@​dr​:~$ perl -le 'print( -1 ** $a )'
-1
102,0 jmadea@​dr​:~$ perl -le 'print( (-1) ** $a )'
1
103,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print -1 ** $a;
-e syntax OK

### Two quick tests made after patching...
104,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print((-1) ** $a);
-e syntax OK
105,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( -1 ** $a )'
print -1 ** $a;
-e syntax OK

### Text of patch for Deparse.pm
2384c2384,2386
< return const($sv);
---

# return const($sv);
my $c = const $sv;
return $c < 0 ? $self->maybe_parens($c, $cx, 21) : $c;

--
Jeremy Madea Inktomi Corporation http​://www.inktomi.com/
jmadea@​inktomi.com Search/Custom Cluster Administrator
work​: 650.653.6970 ``My two cents aren't worth a dime.''

Perl Info

Flags:
    category=library
    severity=low

Site configuration information for perl v5.6.0:

Configured by sauoq at Mon Oct 30 19:03:21 PST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=solaris, osvers=2.7, archname=sun4-solaris
    uname='sunos dr 5.7 generic_106541-02 sun4u sparc sunw,ultra-5_10 '
    config_args='-ds -e -Dprefix=/usr/local/ -Dcc='/usr/gnu/bin/gcc''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='/usr/gnu/bin/gcc', optimize='-O', gccversion=2.95 19990728 (release)
    cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include'
    ccflags ='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    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, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/usr/gnu/bin/gcc', ldflags =' -L/usr/local/lib -L/usr/gnu/lib '
    libpth=/usr/local/lib /usr/gnu/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec -liconv
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib -L/usr/gnu/lib'

Locally applied patches:
    


@INC for perl v5.6.0:
    /usr/local//lib/perl5/5.6.0/sun4-solaris
    /usr/local//lib/perl5/5.6.0
    /usr/local//lib/perl5/site_perl/5.6.0/sun4-solaris
    /usr/local//lib/perl5/site_perl/5.6.0
    /usr/local//lib/perl5/site_perl
    .


Environment for perl v5.6.0:
    HOME=/home/jmadea
    LANG=en_US
    LANGUAGE (unset)
    LC_ALL=C
    LC_CTYPE=C
    LD_LIBRARY_PATH=/usr/local/lib:/usr/gnu/lib
    LOGDIR (unset)
    PATH=/home/jmadea/bin:/usr/gnu/bin:/usr/openwin/bin:/bin:/usr/bin:/usr/sbin:/usr/X/bin:/sbin:/usr/local/bin:/usr/local/sbin:/usr/ucb:/usr/dt/bin:/usr/ccs/bin:/etc:/usr/local/netscape
    PERL_BADLANG (unset)
    SHELL=/bin/bash

@p5pRT
Copy link
Author

p5pRT commented Mar 22, 2001

From jmadea@inktomi.com

### The following should make the problem obvious.
101,0 jmadea@​dr​:~$ perl -le 'print( -1 ** $a )'
-1
102,0 jmadea@​dr​:~$ perl -le 'print( (-1) ** $a )'
1
103,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print -1 ** $a;
-e syntax OK

### Two quick tests made after patching...
104,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print((-1) ** $a);
-e syntax OK
105,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( -1 ** $a )'
print -1 ** $a;
-e syntax OK

### Text of patch for Deparse.pm
2384c2384,2386
< return const($sv);
---

# return const($sv);
my $c = const $sv;
return $c < 0 ? $self->maybe_parens($c, $cx, 21) : $c;

--
Jeremy Madea Inktomi Corporation http​://www.inktomi.com/
jmadea@​inktomi.com Search/Custom Cluster Administrator
work​: 650.653.6970 ``My two cents aren't worth a dime.''

Perl Info

Flags:
    category=library
    severity=low

Site configuration information for perl v5.6.0:

Configured by sauoq at Mon Oct 30 19:03:21 PST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=solaris, osvers=2.7, archname=sun4-solaris
    uname='sunos dr 5.7 generic_106541-02 sun4u sparc sunw,ultra-5_10 '
    config_args='-ds -e -Dprefix=/usr/local/ -Dcc='/usr/gnu/bin/gcc''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='/usr/gnu/bin/gcc', optimize='-O', gccversion=2.95 19990728 (release)
    cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include'
    ccflags ='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    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, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/usr/gnu/bin/gcc', ldflags =' -L/usr/local/lib -L/usr/gnu/lib '
    libpth=/usr/local/lib /usr/gnu/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec -liconv
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib -L/usr/gnu/lib'

Locally applied patches:
    


@INC for perl v5.6.0:
    /usr/local//lib/perl5/5.6.0/sun4-solaris
    /usr/local//lib/perl5/5.6.0
    /usr/local//lib/perl5/site_perl/5.6.0/sun4-solaris
    /usr/local//lib/perl5/site_perl/5.6.0
    /usr/local//lib/perl5/site_perl
    .


Environment for perl v5.6.0:
    HOME=/home/jmadea
    LANG=en_US
    LANGUAGE (unset)
    LC_ALL=C
    LC_CTYPE=C
    LD_LIBRARY_PATH=/usr/local/lib:/usr/gnu/lib
    LOGDIR (unset)
    PATH=/home/jmadea/bin:/usr/gnu/bin:/usr/openwin/bin:/bin:/usr/bin:/usr/sbin:/usr/X/bin:/sbin:/usr/local/bin:/usr/local/sbin:/usr/ucb:/usr/dt/bin:/usr/ccs/bin:/etc:/usr/local/netscape
    PERL_BADLANG (unset)
    SHELL=/bin/bash


1 similar comment
@p5pRT
Copy link
Author

p5pRT commented Mar 22, 2001

From jmadea@inktomi.com

### The following should make the problem obvious.
101,0 jmadea@​dr​:~$ perl -le 'print( -1 ** $a )'
-1
102,0 jmadea@​dr​:~$ perl -le 'print( (-1) ** $a )'
1
103,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print -1 ** $a;
-e syntax OK

### Two quick tests made after patching...
104,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print((-1) ** $a);
-e syntax OK
105,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( -1 ** $a )'
print -1 ** $a;
-e syntax OK

### Text of patch for Deparse.pm
2384c2384,2386
< return const($sv);
---

# return const($sv);
my $c = const $sv;
return $c < 0 ? $self->maybe_parens($c, $cx, 21) : $c;

--
Jeremy Madea Inktomi Corporation http​://www.inktomi.com/
jmadea@​inktomi.com Search/Custom Cluster Administrator
work​: 650.653.6970 ``My two cents aren't worth a dime.''

Perl Info

Flags:
    category=library
    severity=low

Site configuration information for perl v5.6.0:

Configured by sauoq at Mon Oct 30 19:03:21 PST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=solaris, osvers=2.7, archname=sun4-solaris
    uname='sunos dr 5.7 generic_106541-02 sun4u sparc sunw,ultra-5_10 '
    config_args='-ds -e -Dprefix=/usr/local/ -Dcc='/usr/gnu/bin/gcc''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='/usr/gnu/bin/gcc', optimize='-O', gccversion=2.95 19990728 (release)
    cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include'
    ccflags ='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    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, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/usr/gnu/bin/gcc', ldflags =' -L/usr/local/lib -L/usr/gnu/lib '
    libpth=/usr/local/lib /usr/gnu/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec -liconv
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib -L/usr/gnu/lib'

Locally applied patches:
    


@INC for perl v5.6.0:
    /usr/local//lib/perl5/5.6.0/sun4-solaris
    /usr/local//lib/perl5/5.6.0
    /usr/local//lib/perl5/site_perl/5.6.0/sun4-solaris
    /usr/local//lib/perl5/site_perl/5.6.0
    /usr/local//lib/perl5/site_perl
    .


Environment for perl v5.6.0:
    HOME=/home/jmadea
    LANG=en_US
    LANGUAGE (unset)
    LC_ALL=C
    LC_CTYPE=C
    LD_LIBRARY_PATH=/usr/local/lib:/usr/gnu/lib
    LOGDIR (unset)
    PATH=/home/jmadea/bin:/usr/gnu/bin:/usr/openwin/bin:/bin:/usr/bin:/usr/sbin:/usr/X/bin:/sbin:/usr/local/bin:/usr/local/sbin:/usr/ucb:/usr/dt/bin:/usr/ccs/bin:/etc:/usr/local/netscape
    PERL_BADLANG (unset)
    SHELL=/bin/bash


@p5pRT
Copy link
Author

p5pRT commented Mar 22, 2001

From jmadea@inktomi.com

### The following should make the problem obvious.
101,0 jmadea@​dr​:~$ perl -le 'print( -1 ** $a )'
-1
102,0 jmadea@​dr​:~$ perl -le 'print( (-1) ** $a )'
1
103,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print -1 ** $a;
-e syntax OK

### Two quick tests made after patching...
104,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print((-1) ** $a);
-e syntax OK
105,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( -1 ** $a )'
print -1 ** $a;
-e syntax OK

### Text of patch for Deparse.pm
2384c2384,2386
< return const($sv);
---

# return const($sv);
my $c = const $sv;
return $c < 0 ? $self->maybe_parens($c, $cx, 21) : $c;

--
Jeremy Madea Inktomi Corporation http​://www.inktomi.com/
jmadea@​inktomi.com Search/Custom Cluster Administrator
work​: 650.653.6970 ``My two cents aren't worth a dime.''

Perl Info

Flags:
    category=library
    severity=low

Site configuration information for perl v5.6.0:

Configured by sauoq at Mon Oct 30 19:03:21 PST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=solaris, osvers=2.7, archname=sun4-solaris
    uname='sunos dr 5.7 generic_106541-02 sun4u sparc sunw,ultra-5_10 '
    config_args='-ds -e -Dprefix=/usr/local/ -Dcc='/usr/gnu/bin/gcc''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='/usr/gnu/bin/gcc', optimize='-O', gccversion=2.95 19990728 (release)
    cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include'
    ccflags ='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    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, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/usr/gnu/bin/gcc', ldflags =' -L/usr/local/lib -L/usr/gnu/lib '
    libpth=/usr/local/lib /usr/gnu/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec -liconv
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib -L/usr/gnu/lib'

Locally applied patches:
    


@INC for perl v5.6.0:
    /usr/local//lib/perl5/5.6.0/sun4-solaris
    /usr/local//lib/perl5/5.6.0
    /usr/local//lib/perl5/site_perl/5.6.0/sun4-solaris
    /usr/local//lib/perl5/site_perl/5.6.0
    /usr/local//lib/perl5/site_perl
    .


Environment for perl v5.6.0:
    HOME=/home/jmadea
    LANG=en_US
    LANGUAGE (unset)
    LC_ALL=C
    LC_CTYPE=C
    LD_LIBRARY_PATH=/usr/local/lib:/usr/gnu/lib
    LOGDIR (unset)
    PATH=/home/jmadea/bin:/usr/gnu/bin:/usr/openwin/bin:/bin:/usr/bin:/usr/sbin:/usr/X/bin:/sbin:/usr/local/bin:/usr/local/sbin:/usr/ucb:/usr/dt/bin:/usr/ccs/bin:/etc:/usr/local/netscape
    PERL_BADLANG (unset)
    SHELL=/bin/bash


@p5pRT
Copy link
Author

p5pRT commented Mar 22, 2001

From jmadea@dr.inktomi.com

### The following should make the problem obvious.
101,0 jmadea@​dr​:~$ perl -le 'print( -1 ** $a )'
-1
102,0 jmadea@​dr​:~$ perl -le 'print( (-1) ** $a )'
1
103,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print -1 ** $a;
-e syntax OK

### Two quick tests made after patching...
104,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print((-1) ** $a);
-e syntax OK
105,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( -1 ** $a )'
print -1 ** $a;
-e syntax OK

### Text of patch for Deparse.pm
2384c2384,2386
< return const($sv);
---

# return const($sv);
my $c = const $sv;
return $c < 0 ? $self->maybe_parens($c, $cx, 21) : $c;

--
Jeremy Madea Inktomi Corporation http​://www.inktomi.com/
jmadea@​inktomi.com Search/Custom Cluster Administrator
work​: 650.653.6970 ``My two cents aren't worth a dime.''

Perl Info

Flags:
    category=library
    severity=low

Site configuration information for perl v5.6.0:

Configured by sauoq at Mon Oct 30 19:03:21 PST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=solaris, osvers=2.7, archname=sun4-solaris
    uname='sunos dr 5.7 generic_106541-02 sun4u sparc sunw,ultra-5_10 '
    config_args='-ds -e -Dprefix=/usr/local/ -Dcc='/usr/gnu/bin/gcc''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='/usr/gnu/bin/gcc', optimize='-O', gccversion=2.95 19990728 (release)
    cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include'
    ccflags ='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    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, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/usr/gnu/bin/gcc', ldflags =' -L/usr/local/lib -L/usr/gnu/lib '
    libpth=/usr/local/lib /usr/gnu/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec -liconv
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib -L/usr/gnu/lib'

Locally applied patches:
    


@INC for perl v5.6.0:
    /usr/local//lib/perl5/5.6.0/sun4-solaris
    /usr/local//lib/perl5/5.6.0
    /usr/local//lib/perl5/site_perl/5.6.0/sun4-solaris
    /usr/local//lib/perl5/site_perl/5.6.0
    /usr/local//lib/perl5/site_perl
    .


Environment for perl v5.6.0:
    HOME=/home/jmadea
    LANG=en_US
    LANGUAGE (unset)
    LC_ALL=C
    LC_CTYPE=C
    LD_LIBRARY_PATH=/usr/local/lib:/usr/gnu/lib
    LOGDIR (unset)
    PATH=/home/jmadea/bin:/usr/gnu/bin:/usr/openwin/bin:/bin:/usr/bin:/usr/sbin:/usr/X/bin:/sbin:/usr/local/bin:/usr/local/sbin:/usr/ucb:/usr/dt/bin:/usr/ccs/bin:/etc:/usr/local/netscape
    PERL_BADLANG (unset)
    SHELL=/bin/bash

@p5pRT
Copy link
Author

p5pRT commented Mar 22, 2001

From jmadea@inktomi.com

### The following should make the problem obvious.
101,0 jmadea@​dr​:~$ perl -le 'print( -1 ** $a )'
-1
102,0 jmadea@​dr​:~$ perl -le 'print( (-1) ** $a )'
1
103,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print -1 ** $a;
-e syntax OK

### Two quick tests made after patching...
104,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print((-1) ** $a);
-e syntax OK
105,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( -1 ** $a )'
print -1 ** $a;
-e syntax OK

### Text of patch for Deparse.pm
2384c2384,2386
< return const($sv);
---

# return const($sv);
my $c = const $sv;
return $c < 0 ? $self->maybe_parens($c, $cx, 21) : $c;

--
Jeremy Madea Inktomi Corporation http​://www.inktomi.com/
jmadea@​inktomi.com Search/Custom Cluster Administrator
work​: 650.653.6970 ``My two cents aren't worth a dime.''

Perl Info

Flags:
    category=library
    severity=low

Site configuration information for perl v5.6.0:

Configured by sauoq at Mon Oct 30 19:03:21 PST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=solaris, osvers=2.7, archname=sun4-solaris
    uname='sunos dr 5.7 generic_106541-02 sun4u sparc sunw,ultra-5_10 '
    config_args='-ds -e -Dprefix=/usr/local/ -Dcc='/usr/gnu/bin/gcc''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='/usr/gnu/bin/gcc', optimize='-O', gccversion=2.95 19990728 (release)
    cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include'
    ccflags ='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    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, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/usr/gnu/bin/gcc', ldflags =' -L/usr/local/lib -L/usr/gnu/lib '
    libpth=/usr/local/lib /usr/gnu/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec -liconv
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib -L/usr/gnu/lib'

Locally applied patches:
    


@INC for perl v5.6.0:
    /usr/local//lib/perl5/5.6.0/sun4-solaris
    /usr/local//lib/perl5/5.6.0
    /usr/local//lib/perl5/site_perl/5.6.0/sun4-solaris
    /usr/local//lib/perl5/site_perl/5.6.0
    /usr/local//lib/perl5/site_perl
    .


Environment for perl v5.6.0:
    HOME=/home/jmadea
    LANG=en_US
    LANGUAGE (unset)
    LC_ALL=C
    LC_CTYPE=C
    LD_LIBRARY_PATH=/usr/local/lib:/usr/gnu/lib
    LOGDIR (unset)
    PATH=/home/jmadea/bin:/usr/gnu/bin:/usr/openwin/bin:/bin:/usr/bin:/usr/sbin:/usr/X/bin:/sbin:/usr/local/bin:/usr/local/sbin:/usr/ucb:/usr/dt/bin:/usr/ccs/bin:/etc:/usr/local/netscape
    PERL_BADLANG (unset)
    SHELL=/bin/bash


1 similar comment
@p5pRT
Copy link
Author

p5pRT commented Mar 22, 2001

From jmadea@inktomi.com

### The following should make the problem obvious.
101,0 jmadea@​dr​:~$ perl -le 'print( -1 ** $a )'
-1
102,0 jmadea@​dr​:~$ perl -le 'print( (-1) ** $a )'
1
103,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print -1 ** $a;
-e syntax OK

### Two quick tests made after patching...
104,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print((-1) ** $a);
-e syntax OK
105,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( -1 ** $a )'
print -1 ** $a;
-e syntax OK

### Text of patch for Deparse.pm
2384c2384,2386
< return const($sv);
---

# return const($sv);
my $c = const $sv;
return $c < 0 ? $self->maybe_parens($c, $cx, 21) : $c;

--
Jeremy Madea Inktomi Corporation http​://www.inktomi.com/
jmadea@​inktomi.com Search/Custom Cluster Administrator
work​: 650.653.6970 ``My two cents aren't worth a dime.''

Perl Info

Flags:
    category=library
    severity=low

Site configuration information for perl v5.6.0:

Configured by sauoq at Mon Oct 30 19:03:21 PST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=solaris, osvers=2.7, archname=sun4-solaris
    uname='sunos dr 5.7 generic_106541-02 sun4u sparc sunw,ultra-5_10 '
    config_args='-ds -e -Dprefix=/usr/local/ -Dcc='/usr/gnu/bin/gcc''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='/usr/gnu/bin/gcc', optimize='-O', gccversion=2.95 19990728 (release)
    cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include'
    ccflags ='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    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, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/usr/gnu/bin/gcc', ldflags =' -L/usr/local/lib -L/usr/gnu/lib '
    libpth=/usr/local/lib /usr/gnu/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec -liconv
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib -L/usr/gnu/lib'

Locally applied patches:
    


@INC for perl v5.6.0:
    /usr/local//lib/perl5/5.6.0/sun4-solaris
    /usr/local//lib/perl5/5.6.0
    /usr/local//lib/perl5/site_perl/5.6.0/sun4-solaris
    /usr/local//lib/perl5/site_perl/5.6.0
    /usr/local//lib/perl5/site_perl
    .


Environment for perl v5.6.0:
    HOME=/home/jmadea
    LANG=en_US
    LANGUAGE (unset)
    LC_ALL=C
    LC_CTYPE=C
    LD_LIBRARY_PATH=/usr/local/lib:/usr/gnu/lib
    LOGDIR (unset)
    PATH=/home/jmadea/bin:/usr/gnu/bin:/usr/openwin/bin:/bin:/usr/bin:/usr/sbin:/usr/X/bin:/sbin:/usr/local/bin:/usr/local/sbin:/usr/ucb:/usr/dt/bin:/usr/ccs/bin:/etc:/usr/local/netscape
    PERL_BADLANG (unset)
    SHELL=/bin/bash


@p5pRT
Copy link
Author

p5pRT commented Mar 22, 2001

From jmadea@inktomi.com

### The following should make the problem obvious.
101,0 jmadea@​dr​:~$ perl -le 'print( -1 ** $a )'
-1
102,0 jmadea@​dr​:~$ perl -le 'print( (-1) ** $a )'
1
103,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print -1 ** $a;
-e syntax OK

### Two quick tests made after patching...
104,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( (-1) ** $a )'
print((-1) ** $a);
-e syntax OK
105,0 jmadea@​dr​:~$ perl -MO=Deparse -e 'print( -1 ** $a )'
print -1 ** $a;
-e syntax OK

### Text of patch for Deparse.pm
2384c2384,2386
< return const($sv);
---

# return const($sv);
my $c = const $sv;
return $c < 0 ? $self->maybe_parens($c, $cx, 21) : $c;

--
Jeremy Madea Inktomi Corporation http​://www.inktomi.com/
jmadea@​inktomi.com Search/Custom Cluster Administrator
work​: 650.653.6970 ``My two cents aren't worth a dime.''

Perl Info

Flags:
    category=library
    severity=low

Site configuration information for perl v5.6.0:

Configured by sauoq at Mon Oct 30 19:03:21 PST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=solaris, osvers=2.7, archname=sun4-solaris
    uname='sunos dr 5.7 generic_106541-02 sun4u sparc sunw,ultra-5_10 '
    config_args='-ds -e -Dprefix=/usr/local/ -Dcc='/usr/gnu/bin/gcc''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='/usr/gnu/bin/gcc', optimize='-O', gccversion=2.95 19990728 (release)
    cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include'
    ccflags ='-fno-strict-aliasing -I/usr/local/include -I/usr/gnu/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    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, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='/usr/gnu/bin/gcc', ldflags =' -L/usr/local/lib -L/usr/gnu/lib '
    libpth=/usr/local/lib /usr/gnu/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec -liconv
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib -L/usr/gnu/lib'

Locally applied patches:
    


@INC for perl v5.6.0:
    /usr/local//lib/perl5/5.6.0/sun4-solaris
    /usr/local//lib/perl5/5.6.0
    /usr/local//lib/perl5/site_perl/5.6.0/sun4-solaris
    /usr/local//lib/perl5/site_perl/5.6.0
    /usr/local//lib/perl5/site_perl
    .


Environment for perl v5.6.0:
    HOME=/home/jmadea
    LANG=en_US
    LANGUAGE (unset)
    LC_ALL=C
    LC_CTYPE=C
    LD_LIBRARY_PATH=/usr/local/lib:/usr/gnu/lib
    LOGDIR (unset)
    PATH=/home/jmadea/bin:/usr/gnu/bin:/usr/openwin/bin:/bin:/usr/bin:/usr/sbin:/usr/X/bin:/sbin:/usr/local/bin:/usr/local/sbin:/usr/ucb:/usr/dt/bin:/usr/ccs/bin:/etc:/usr/local/netscape
    PERL_BADLANG (unset)
    SHELL=/bin/bash


@p5pRT
Copy link
Author

p5pRT commented May 8, 2003

From @iabyn

(Just reviewing old Perl bug reports).

This has been fixed in 5.6.1, by your patch or a similar one.

Regards,

Dave M.

@p5pRT
Copy link
Author

p5pRT commented May 8, 2003

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

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Development

No branches or pull requests

1 participant