redo doesn't like lexical vars defined in while test

[p5pRT]

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

Searchable as RT2049$

[p5pRT]

From lektu@teleline.es

--- begin sample script ---
while (my $line = <DATA>) {
  if ($line =~ /Two/) {
  $line = "Dos\n";
  redo;
  }
  print $line;
}

__DATA__
One
Two
Three
--- end sample script ---

outputs​:

One
Three

or, with -w​:

One
Use of uninitialized value at test_redo.pl line 2, <DATA> chunk 2.
Use of uninitialized value at test_redo.pl line 6, <DATA> chunk 2.
Three

Using​:

2c2,3
< while (my $line = <DATA>) {
---

my $line;
while ($line = <DATA>) {

the output is​:

One
Two
Three

as expected.

Perhaps that's the intended effect, but I didn't find any
reference to it in the docs.

Perl Info

Site configuration information for perl 5.00503:

Summary of my perl5 (5.0 patchlevel 5 subversion 03) configuration:
  Platform:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86-object
    uname=''
    hint=recommended, useposix=true, d_sigaction=undef
    usethreads=undef useperlio=undef d_sfio=undef
  Compiler:
    cc='cl.exe', optimize='-Od -MD -DNDEBUG -TP -GX', gccversion=
    cppflags='-DWIN32'
    ccflags ='-Od -MD -DNDEBUG -TP -GX -DWIN32 -D_CONSOLE -DNO_STRICT
-DHAVE_DES_FCRYPT -DPERL_OBJECT'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='link', ldflags ='-nologo -nodefaultlib -release
-libpath:"C:\Perl\lib\CORE"  -machine:x86'
    libpth="C:\Perl\lib\CORE" "D:\Program Files\Microsoft Visual
Studio\VC98\mfc\lib" "D:\Program Files\Microsoft Visual
Studio\VC98\lib" 
    libs= oldnames.lib kernel32.lib user32.lib gdi32.lib  winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib  oleaut32.lib
netapi32.lib uuid.lib wsock32.lib mpr.lib winmm.lib  version.lib
odbc32.lib odbccp32.lib PerlCRT.lib
    libc=C:\Perl\lib\CORE\PerlCRT.lib, so=dll, useshrplib=yes,
libperl=perlcore.lib
  Dynamic Linking:
    dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release
-libpath:"C:\Perl\lib\CORE"  -machine:x86'

Locally applied patches:
    ACTIVEPERL_LOCAL_PATCHES_ENTRY


@INC for perl 5.00503:
    C:/Perl/lib
    C:/Perl/site/lib
    .


Environment for perl 5.00503:
    HOME=D:\usr\home
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)

PATH=C:\Perl\bin;c:\orant\bin;C:\WINNT\SYSTEM32;C:\WINNT;D:\bin\tool;d:\bin\cygwin-b20\H-i586-cygwin32\bin;C:\Program
Files\Mts;D:\bin\PGPNT;D:\Program Files\Microsoft Visual
Studio\Common\Tools\WinNT;D:\Program Files\Microsoft Visual
Studio\Common\MSDev98\Bin;D:\Program Files\Microsoft Visual
Studio\Common\Tools;D:\Program Files\Microsoft Visual
Studio\VC98\bin;D:\BIN\EMACS\BIN;C:\4NT;D:\BIN\GNAT\BIN;d:\bin\expat;d:\bin\jade;D:\PROGRA~1\BORLAND\DELPHI4\BIN;D:\PROGRA~1\BORLAND\VBROKER\BIN;D:\PROGRA~1\BORLAND\VBROKER\JRE\BIN;D:\bin\xml4c2_0_0\bin;D:\verity\cdpub30\_nti31\bin;C:\mysql\bin;
    PERL_BADLANG (unset)
    SHELL (unset)

[p5pRT]

From khw@bighorn.dr.lucent.com

This is a bug report for perl from khwilliamson@​lucent.com,
generated with the help of perlbug 1.26 running under perl 5.00503.

---

The following program is an example​:

use strict;
my @​A = ( 1, 2, 3);
#my $i;
while (my $i = shift @​A) {
  print "i=$i\n";
  last unless defined $i;
  redo;
}

Different results occur if $i is declared outside the while
statement (it works) than as shown above. The redo causes
$i to become undefined.

---

---

Site configuration information for perl 5.00503​:

Configured by expmake at Fri Sep 10 16​:33​:51 CDT 1999.

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration​:
  Platform​:
  osname=solaris, osvers=2.4, archname=sun4-solaris
  uname='sunos nwpep 5.4 generic_101945-61 sun4d sparc '
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=undef useperlio=undef d_sfio=undef
  Compiler​:
  cc='cc', optimize='-O', gccversion=
  cppflags=''
  ccflags =''
  stdchar='unsigned char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
  alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries​:
  ld='cc', ldflags =''
  libpth=/lib /usr/lib /usr/ccs/lib
  libs=-lsocket -lnsl -ldl -lm -lc -lcrypt
  libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
  cccdlflags='-KPIC', lddlflags='-G'

Locally applied patches​:
 

---

@​INC for perl 5.00503​:
  /opt/exp/perl/lib/5.00503/sun4-solaris
  /opt/exp/perl/lib/5.00503
  /opt/exp/perl/lib/site_perl/5.005/sun4-solaris
  /opt/exp/perl/lib/site_perl/5.005
  .

---

Environment for perl 5.00503​:
  HOME=/home/khw
  LANG (unset)
  LANGUAGE (unset)
  LD_LIBRARY_PATH=/usr/openwin/lib​:/usr/lib
  LOGDIR (unset)
  PATH=/usr/local/src/post/src/post​:/home/khw/specbin​:/home/khw/bin​:/home/khw/print/bin​:/usr/add-on/dwb/bin​:/usr/5bin​:/usr/ucb​:/usr/add-on/local/bin​:/usr/add-on/unison/bin​:/opt/exp/bin​:/usr/sbin​:/usr/add-on/zmail/bin​:/usr/add-on/ncmp/630/bin​:/usr/add-on/SUNWspro/bin​:/usr/openwin/bin​:/usr/openwin/demo​:/usr/bin/X11​:/usr/add-on/ncmp/bin​:/usr/ccs/bin​:/etc​:/usr/add-on/defty5/bin​:/usr/add-on/tools/bin​:/opt/exp/perl/bin​:
  PERL_BADLANG (unset)
  SHELL=/bin/ksh

[p5pRT]

From @khwilliamson

Probably related to this bug is another one with goto. It is definitely
harmful here. It appears to undefine variables declared in a for (but
not while) loop. The attached file is a short program illustrating it.

--
Karl Williamson
Lucent Bell Labs
11900 Pecos St. Room 30G12
Westminster CO 80234

khwilliamson@​lucent.com
303-538-4583 (same for fax, press #)

[p5pRT]

From @khwilliamson

#! perl -w

use strict;

my $i;
#while(1) {
for($i=0; $i < 1; $i++) {
  my $var = 0;
REDO​:
  print STDERR '$var=', $var, "\n";
  last unless defined $var;
  $var = 1;
  goto REDO; # Should cause infinite loop, and does if the
  # 'for' is replaced with a 'while(1)'
}

[p5pRT]

From @khwilliamson

khwilliamson.vcf

[p5pRT]

From anno4000@lublin.zrz.tu-berlin.de

Created by anno4000@lublin.zrz.tu-berlin.de

If "redo" happens in a while-loop where a lexical loop variable
is declared in the while condition, the variable becomes
undefined. It should keep the value it had before "redo".

while ( my $line = <DATA> ) {
  die "BAM!\n" unless defined $line;
  print "$line";
  if ( $line =~ s/x// ) {
  redo; # when this hits, $line becomes undefined. it shouldn't, should it?
  # when "my $line" is put before the loop (and "my" deletd from the
  # condition) it works as expected.
  }
}
__DATA__
aaa
bbb
cccxx
ddd

Perl Info

Flags:
    category=core
    severity=low

Site configuration information for perl v5.6.0:

Configured by anno4000 at Wed Jun  7 10:42:24 MEST 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.0.36, archname=i586-linux
    uname='linux lublin.zrz.tu-berlin.de 2.0.36 #5 fre apr 23 14:43:16 cest 1999 i586 unknown '
    config_args='-de'
    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='cc', optimize='-O2', gccversion=2.7.2.3
    cppflags='-I/usr/local/include'
    ccflags ='-I/usr/local/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=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4
    alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
    libc=/lib/libc-2.0.7.so, so=so, useshrplib=false, libperl=libperl.a
  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.6.0:
    /usr/local/lib/perl5/5.6.0/i586-linux
    /usr/local/lib/perl5/5.6.0
    /usr/local/lib/perl5/site_perl/5.6.0/i586-linux
    /usr/local/lib/perl5/site_perl/5.6.0
    /usr/local/lib/perl5/site_perl
    .


Environment for perl v5.6.0:
    HOME=/opt/home/anno4000
    LANG=de
    LANGUAGE (unset)
    LC_ALL=de_DE
    LD_LIBRARY_PATH=/usr/X11R6/lib:/usr/local/LessTif/Motif1.2/lib
    LOGDIR (unset)
    PATH=/opt/home/anno4000/bin:/sbin:/usr/local/bin:/bin:/usr/bin:/usr/sbin:/usr/X11R6/bin:/usr/openwin/bin:/usr/games
    PERL_BADLANG (unset)
    PERL_PRIVLIB=/usr/local/lib/perl5/5.6.0
    PERL_SITELIB=/usr/local/lib/perl5/site_perl/5.6.0
    SHELL=/bin/tcsh

[p5pRT]

From @mjdominus

Created by @mjdominus

  use strict;
  while( my $x = 1 ) {
  print "x is ", (defined($x) ? $x : 'UNDEF'), "\n";
  redo;
  }

This emits the following output​:

  x is 1
  x is UNDEF
  x is UNDEF
  ...

The first time through the loop, $x is 1, as one would expect.
When the 'redo' branch is taken, control is transferred to the top of
the loop, but the value in $x is destroyed.

Perl Info

Flags:
    category=core
    severity=medium

Site configuration information for perl v5.6.1:

Configured by root at Sat Dec 29 11:54:59 EST 2001.

Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
  Platform:
    osname=linux, osvers=2.4.2-2, archname=i586-linux
    uname='linux plover.com 2.4.2-2 #1 sun apr 8 19:37:14 edt 2001 i586 unknown '
    config_args='-des'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
  Compiler:
    cc='cc', ccflags ='-fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2',
    cppflags='-fno-strict-aliasing'
    ccversion='', gccversion='2.96 20000731 (Red Hat Linux 7.1 2.96-81)', 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, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lcrypt -lutil
    perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil
    libc=/lib/libc-2.2.2.so, so=so, useshrplib=false, libperl=libperl.a
  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.6.1:
    /usr/local/lib/perl5/5.6.1/i586-linux
    /usr/local/lib/perl5/5.6.1
    /usr/local/lib/perl5/site_perl/5.6.1/i586-linux
    /usr/local/lib/perl5/site_perl/5.6.1
    /usr/local/lib/perl5/site_perl/5.6.0/i586-linux
    /usr/local/lib/perl5/site_perl/5.6.0
    /usr/local/lib/perl5/site_perl
    .


Environment for perl v5.6.1:
    HOME=/home/mjd
    LANG=en_US
    LANGUAGE (unset)
    LD_LIBRARY_PATH=/lib:/usr/lib:/usr/X11R6/lib
    LOGDIR (unset)
    PATH=/home/mjd/bin:/usr/local/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/games:/sbin:/usr/sbin:/usr/local/bin/X11R6:/usr/local/bin/mh:/data/mysql/bin:/usr/local/bin/pbm:/usr/local/bin/ezmlm:/home/mjd/TPI/bin:/usr/local/teTeX/bin:/usr/local/mysql/bin
    PERL_BADLANG (unset)
    SHELL=/bin/bash

[p5pRT]

From pcg@goof.com

Created by root@cerebro.laendle

I just stumbled over a problem similar to​:

  my $var = 5 if 0;

i.e. where runtime behaviour is unexpected. The example is​:

  my $flag;
  while (my $x = $flag + 1) {
  print "$x\n";
  $flag++ or redo;
  last;
  }

this example should probably print 1 twice, as $x is initialized to 1 in
the first loop run and redo should not change it. ($flag is just used to
make the problem stop).

However, it prints "1" and an empty line, i.e. the redo clears the my
variable in the loop condition, which *could* be a bug, so I reported
it. The behaviour seems to be consistent among 5.004, 5.005, 5.6 and 5.8.

Perl Info

Flags:
    category=core
    severity=low

Site configuration information for perl v5.8.0:

Configured by root at Sat Jul 20 01:25:22 CEST 2002.

Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.4, archname=i686-linux
    uname='linux cerebro 2.4.18-pre8-ac3 #2 smp tue feb 5 17:35:23 cet 2002 i686 unknown '
    config_args=''
    hint=previous, 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=y, bincompat5005=undef
  Compiler:
    cc='gcc-2.95', ccflags ='-I/opt/include -D_GNU_SOURCE -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-Os -funroll-loops -mcpu=pentium -march=pentium -g',
    cppflags='-I/opt/include -D_GNU_SOURCE -I/opt/include -D_GNU_SOURCE -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/opt/include -D_GNU_SOURCE -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    ccversion='', gccversion='2.95.4 20010319 (prerelease)', 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-2.95', ldflags =''
    libpth=/usr/lib /opt/lib
    libs=-lcrypt -ldl -lm -lc
    perllibs=-lcrypt -ldl -lm -lc
    libc=/lib/libc-2.3.1.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.2.5'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fpic', lddlflags='-shared'

Locally applied patches:
    


@INC for perl v5.8.0:
    /root/src/sex
    /opt/perl/lib/perl5
    /opt/perl/lib/perl5
    /opt/perl/lib/perl5
    /opt/perl/lib/perl5
    .


Environment for perl v5.8.0:
    HOME=/root
    LANG (unset)
    LANGUAGE (unset)
    LC_CTYPE=de_DE@euro
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/root/s2:/root/s:/opt/qt/bin:/opt/bin:/opt/sbin:/bin:/sbin:/usr/bin:/usr/sbin:/usr/X11/bin:/usr/games:/usr/local/bin:/usr/local/sbin:.:/root/cc/dejagnu/bin
    PERL5LIB=/root/src/sex
    PERLDB_OPTS=ornaments=0
    PERL_BADLANG (unset)
    SHELL=/bin/bash

[p5pRT]

From @nwc10

On Sat, Nov 30, 2002 at 03​:12​:14PM -0000, Marc Lehmann wrote​:

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

I just stumbled over a problem similar to​:

my $var = 5 if 0;

i.e. where runtime behaviour is unexpected. The example is​:

my $flag;
while (my $x = $flag + 1) {
print "$x\n";
$flag++ or redo;
last;
}

this example should probably print 1 twice, as $x is initialized to 1 in
the first loop run and redo should not change it. ($flag is just used to
make the problem stop).

However, it prints "1" and an empty line, i.e. the redo clears the my
variable in the loop condition, which *could* be a bug, so I reported
it. The behaviour seems to be consistent among 5.004, 5.005, 5.6 and 5.8.

I presume you've reduced your problem to the above case. I'm not quite sure
why you didn't write it like this​:

  my $flag;
  while (my $x = 1) {
  print "$x\n";
  $flag++ or redo;
  last;
  }

which also print "1" and an empty line.
I don't see anything in that example that should ever cause $x to become undef,
so I think it has to be a bug.

  my $flag;
  while (my $x = 1) {
  print "$x\n";
  $flag++ or next;
  last;
  }

and

  my $flag;
  while (my $x = 1) {
  print "$x\n";
  $flag++ and last;
  }

both print "1" "1"

Nicholas Clark
--
INTERCAL better than perl? http​://www.perl.org/advocacy/spoofathon/

[p5pRT]

From pcg@goof.com

On Sun, Dec 01, 2002 at 04​:22​:50PM -0000, Nicholas Clark <perlbug@​perl.org> wrote​:

I presume you've reduced your problem to the above case. I'm not quite sure
why you didn't write it like this​:

I can assure you it was just my disability to reduce it further. Your
example is equivalent.

I don't see anything in that example that should ever cause $x to become undef,
so I think it has to be a bug.

Well, the docs say that the conditional isn't evaluated again, which means
that the "my $x = " isn't evaluated again.

This could mean that $x isn't visible, which isn't the case, fortunately
(and isn't desirable, either, I think).

   $flag\+\+ or next;

both print "1" "1"

next, however, does reevaluate the condition, so "my $x" is executed.

It boils down to wether "my $x" is compile or runtime. In fact, it's both,
and I'd rather document this (e.g. as a programmer bug) than trying a fix
that might slow down perl. Making it work is best though, IMnsHO ;)

--
  -----==- |
  ----==-- _ |
  ---==---(_)__ __ ____ __ Marc Lehmann +--
  --==---/ / _ \/ // /\ \/ / pcg@​goof.com |e|
  -=====/_/_//_/\_,_/ /_/\_\ XX11-RIPE --+
  The choice of a GNU generation |
  |

[p5pRT]

From guest@guest.guest.xxxxxxxx

Perhaps this perl-sample addresses the same problem?

[p5pRT]

From guest@guest.guest.xxxxxxxx

test.pl

[p5pRT]

From @pjscott

This doesn't look right​:

% perl -l
while (my $x = $])
{
  die '$x undefined' unless defined $x;
  print $x;
  redo;
}
^D
5.009
$x undefined at - line 3.

Goes back to at least 5.004 though.

Summary of my perl5 (revision 5.0 version 9 subversion 0 patch 19765)
configuration​:
  Platform​:
  osname=linux, osvers=2.4.18-3, archname=i586-linux
  uname='linux psdt.com 2.4.18-3 #1 thu apr 18 07​:31​:07 edt 2002
i586 unknown '
  config_args='-des -Dusedevel'
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=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='cc', ccflags ='-fno-strict-aliasing -I/usr/local/include
-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
  optimize='-O2',
  cppflags='-fno-strict-aliasing -I/usr/local/include -I/usr/include/gdbm'
  ccversion='', gccversion='2.96 20000731 (Red Hat Linux 7.3
2.96-113)', 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=-lnsl -lndbm -lgdbm -ldl -lm -lc -lcrypt -lutil -lrt
  perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil -lrt
  libc=/lib/libc-2.2.5.so, so=so, useshrplib=false, libperl=libperl.a
  gnulibc_version='2.2.5'
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
  cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Characteristics of this binary (from libperl)​:
  Compile-time options​: USE_LARGE_FILES
  Locally applied patches​:
  DEVEL18374
  Built under linux
  Compiled at Jun 13 2003 09​:47​:53
  @​INC​:
  /usr/local/lib/perl5/5.9.0/i586-linux
  /usr/local/lib/perl5/5.9.0
  /usr/local/lib/perl5/site_perl/5.9.0/i586-linux
  /usr/local/lib/perl5/site_perl/5.9.0
  /usr/local/lib/perl5/site_perl
  .
--
Peter Scott
Pacific Systems Design Technologies

[p5pRT]

From ziggy@panix.com

Warnings still show up in 5.6.0 and 5.8.0

[p5pRT]

From chris@mail.piyeepress.com

Created by chris@bj21.com

I think some of us on irc.freenode.net's #perl have found a bug​:

perl -we'my $i = 0; while (defined($_ = 62)) { print; $_ = 72; $i++; exit if $i == 3; redo; }'
627272

Why doesn't that print 626262? $_ isnt being reset to the value it had directly after the "while (defined($_ = 62)) {" code; it is staying at 72. Here is another example​:

perl -wle'while (defined(my $foo = 1)) { die "foo is undef" unless defined $foo; redo }'
foo is undef at -e line 1.

This action, at the very least, does not follow the principle of least surprise. If this is normal behavior, then it isn't documented well.

Please contact me if there is anything I can do to help.

Thanks!

Chris Kelly Angell

Perl Info

Flags:
    category=core
    severity=medium

Site configuration information for perl v5.8.0:

Configured by root at Wed Sep  3 05:15:53 PDT 2003.

Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
  Platform:
    osname=openbsd, osvers=3.3, archname=i386-openbsd
    uname='openbsd'
    config_args='-Dopenbsd_distribution=defined -dsE'
    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='cc', ccflags ='-fno-strict-aliasing -I/usr/local/include',
    optimize='-O2',
    cppflags='-fno-strict-aliasing -I/usr/local/include'
    ccversion='', gccversion='2.95.3 20010125 (prerelease, propolice)', gccosandvers='openbsd3.3'
    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 =''
    libpth=/usr/lib
    libs=-lm -lc -lutil
    perllibs=-lm -lc -lutil
    libc=/usr/lib/libc.so.29.0, so=so, useshrplib=true, libperl=libperl.so.8.0
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=define, ccdlflags='-Wl,-R/usr/libdata/perl5/i386-openbsd/5.8.0/CORE'
    cccdlflags='-DPIC -fPIC ', lddlflags='-shared -fPIC '

Locally applied patches:
    


@INC for perl v5.8.0:
    /usr/libdata/perl5/i386-openbsd/5.8.0
    /usr/local/libdata/perl5/i386-openbsd/5.8.0
    /usr/libdata/perl5
    /usr/local/libdata/perl5
    /usr/local/libdata/perl5/site_perl/i386-openbsd
    /usr/libdata/perl5/site_perl/i386-openbsd
    /usr/local/libdata/perl5/site_perl
    /usr/libdata/perl5/site_perl
    /usr/local/lib/perl5/site_perl
    .


Environment for perl v5.8.0:
    HOME=/home/chris
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/sbin:/usr/sbin:/bin:/usr/bin:/usr/local/bin
    PERL_BADLANG (unset)
    SHELL=/bin/ksh