Bug#511589: foreach loop with lexically scoped variable result in segmentation fault

[Peter Makholm]

Package: libdevel-repl-perl
Version: 1.002001-2
Severity: normal

Using the same lexically scoped variable in a foreach loop twice, makes re.pl
crash with a segmentation fault:  

makholm at makholm:~$ /usr/share/doc/libdevel-repl-perl/examples/re.pl 
$ for my $foo (0 .. 1) { print "/dir$foo\n" }
/dir0
/dir1

$ for my $foo (0 .. 1) { print "/dir$foo\n" }
/dir0
/dir1
Segmentation fault
makholm at makholm:~$ 
makholm at makholm:~$ /usr/share/doc/libdevel-repl-perl/examples/re.pl 
$ my $foo;

$ for $foo ( 0 .. 1 ) { print "/dir/$foo\n" }
/dir/0
/dir/1

$ for $foo ( 0 .. 1 ) { print "/dir/$foo\n" }
/dir/0
/dir/1
Segmentation fault
makholm at makholm:~$ 

Implicitly using $_ seems to work around the issue.


A quite sure I have used Devel::REPL in this way not long time ago, so I
believe some change in testing over the last few weeks has broken something.
The version in unstable is affected too.

-- System Information:
Debian Release: 5.0
  APT prefers testing
  APT policy: (990, 'testing'), (500, 'unstable'), (500, 'stable')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.26-1-amd64 (SMP w/1 CPU core)
Locale: LANG=en_DK.ISO-8859-15, LC_CTYPE=en_DK.ISO-8859-15 (charmap=ISO-8859-15)
Shell: /bin/sh linked to /bin/bash

Versions of packages libdevel-repl-perl depends on:
ii  libb-keywords-perl          1.08-2       lists of internal perl keywords
ii  libdata-dump-streamer-perl  2.08-40-2+b1 Perl module for serializing a data
ii  libfile-homedir-perl        0.64-1.1     Get the home directory for yoursel
ii  liblexical-persistence-perl 0.97-2       Perl module for accessing persiste
ii  libmoose-perl               0.64-1       extension of the Perl 5 object sys
ii  libmoosex-getopt-perl       0.15-1       A Moose role for processing comman
ii  libmoosex-object-pluggable- 0.0008-1     Perl module for adding plugin supp
ii  libnamespace-clean-perl     0.08-1       Keep imports and functions out of 
ii  libppi-perl                 1.203-1      Parse, Analyze and Manipulate Perl
ii  libscope-guard-perl         0.03-2       lexically scoped resource manageme
ii  libtask-weaken-perl         1.02-1       Ensure that a platform has weaken 
ii  perl                        5.10.0-19    Larry Wall's Practical Extraction 

Versions of packages libdevel-repl-perl recommends:
ii  libterm-readline-gnu-perl     1.17a-2+b1 Perl extension for the GNU Readlin

libdevel-repl-perl suggests no packages.

-- no debconf information