29629 breaks peaceful coexistence of my and local

I see many tests fail from 29629 upwards and I distilled the
first in
io/open.t into a small test script.

'make regen_headers' does not help.

----Program----
eval {open my $f, '<', '/etc/hosts';};
open local $f, '<', '/etc/passwd';

----Output of .../p5QXSIU/perl-5.8.029628/bin/perl----

----EOF ($?='0')----
----Output of .../pnq2n8x/perl-5.8.029629/bin/perl----
Can't localize lexical variable $f at tests/my-local.pl line
2.

----EOF ($?='2304')----

-- 
andreas


Summary of my perl5 (revision 5 version 9 subversion 5)
configuration:
  Platform:
    osname=linux, osvers=2.6.18-3-k7,
archname=i686-linux-64int
    uname='linux k75 2.6.18-3-k7 #1 smp mon dec 4 17:23:11
utc 2006 i686 gnulinux '
   
config_args='-Dprefix=/home/src/perl/repoperls/installed-per
ls/perl/pnq2n8x/perl-5.8.029629 -Dinstallusrbinperl=n
-Uversiononly -Doptimize=-g -des -Duse64bitint -Dusedevel'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=undef, usemultiplicity=undef
    useperlio=define, d_sfio=undef, uselargefiles=define,
usesocks=undef
    use64bitint=define, use64bitall=undef,
uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-DDEBUGGING -fno-strict-aliasing
-pipe -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64',
    optimize='-g',
    cppflags='-DDEBUGGING -fno-strict-aliasing -pipe
-I/usr/local/include'
    ccversion='', gccversion='4.1.2 20061028 (prerelease)
(Debian 4.1.1-19)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8,
byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define,
longdblsize=12
    ivtype='long long', ivsize=8, 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 /usr/lib64
    libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
    libc=/lib/libc-2.3.6.so, so=so, useshrplib=false,
libperl=libperl.a
    gnulibc_version='2.3.6'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef,
ccdlflags='-Wl,-E'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl): 
  Compile-time options: DEBUGGING PERL_DONT_CREATE_GVSV
PERL_MALLOC_WRAP
                        USE_64_BIT_INT USE_LARGE_FILES
USE_PERLIO
  Locally applied patches:
        DEVEL
        patchaperlup: --branch='perl' --upto='29629'
--start='17639'
  Built under linux
  Compiled at Dec 29 2006 15:40:00
  INC:
   
/home/src/perl/repoperls/installed-perls/perl/pnq2n8x/perl-5
.8.029629/lib/5.9.5/i686-linux-64int
   
/home/src/perl/repoperls/installed-perls/perl/pnq2n8x/perl-5
.8.029629/lib/5.9.5
   
/home/src/perl/repoperls/installed-perls/perl/pnq2n8x/perl-5
.8.029629/lib/site_perl/5.9.5/i686-linux-64int
   
/home/src/perl/repoperls/installed-perls/perl/pnq2n8x/perl-5
.8.029629/lib/site_perl/5.9.5

On Fri, Dec 29, 2006 at 03:42:56PM +0100, Andreas J. Koenig
wrote:
> I see many tests fail from 29629 upwards and I
distilled the first in
> io/open.t into a small test script.
> 
> 'make regen_headers' does not help.

Did change 29639 fix it?

Also, I don't think that you want nicholas.clarkliverpool.ac.uk in your
address book any more. It's about 8 years since that got to
me.

Nicholas Clark

On 2006-12-29, at 19:03:25 +0000, Nicholas Clark wrote:

> On Fri, Dec 29, 2006 at 03:42:56PM +0100, Andreas J.
Koenig wrote:
> > I see many tests fail from 29629 upwards and I
distilled the first in
> > io/open.t into a small test script.
> > 
> > 'make regen_headers' does not help.
> 
> Did change 29639 fix it?

I think so. At least that change fixed a problem I could
just reduce to
the following test case:

  mhxr2d2 ~ $ cat /tmp/test.pl 
  my a = (1, 2);
  unless (a) { my a }
  print "[a]n";
  mhxr2d2 ~ $ bleadperl /tmp/test.pl 
  []

(The good thing is that this bug discovered a bug in one of
scripts 

Marcus

-- 
Real Users never know what they want, but they always know
when your program
doesn't deliver it.

>>>>> On Fri, 29 Dec 2006 19:03:25 +0000,
Nicholas Clark <nickccl4.org> said:

  > On Fri, Dec 29, 2006 at 03:42:56PM +0100, Andreas J.
Koenig wrote:
 >> I see many tests fail from 29629 upwards and I
distilled the first in
 >> io/open.t into a small test script.
 >> 
 >> 'make regen_headers' does not help.

  > Did change 29639 fix it?

Yes, Thanks!

  > Also, I don't think that you want nicholas.clarkliverpool.ac.uk in your
  > address book any more. It's about 8 years since that
got to me.

Nuked.

-- 
andreas