search

Perl / perl5

🐪 The Perl programming language
https://dev.perl.org/perl5/
Other
1.99k stars 557 forks source link

tied open #2574

Closed p5pRT closed 21 years ago

p5pRT commented 24 years ago

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

Searchable as RT4238$

p5pRT commented 24 years ago

From @gisle

Created by @gisle

This program​: ------------------------------------------------------------ {   package Foo;   sub TIEHANDLE { bless {}\, shift }   sub OPEN { require Carp; Carp​::croak("No\, no"); } }

tie *Foo\, "Foo";

eval {   open(Foo\, "bar"); };

print "foo\n"; ------------------------------------------------------------

prints "foo\n" twice. Why? It seems like anything printed after the eval is repeated. The same thing happen with perl-5.6.0.

Perl Info ``` Flags: category=core severity=low Site configuration information for perl v5.7.0: Configured by gisle at Sun Sep 3 23:35:59 CEST 2000. Summary of my perl5 (revision 5.0 version 7 subversion 0) configuration: Platform: osname=linux, osvers=2.2.14, archname=i686-linux uname='linux eik 2.2.14 #1 fri mar 17 11:59:50 gmt 2000 i686 unknown ' config_args='-Dusedevel -Dprefix=/local/perl/5.7.0 -Doptimize=-g -ders' 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 ='-DDEBUGGING -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-g', cppflags='-DDEBUGGING -fno-strict-aliasing -I/usr/local/include' ccversion='', gccversion='2.95.2 19991024 (release)', 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 -ldbm -ldb -ldl -lm -lc -lposix -lcrypt -lutil libc=, 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.7.0: /local/perl/5.7.0/lib/5.7.0/i686-linux /local/perl/5.7.0/lib/5.7.0 /local/perl/5.7.0/lib/site_perl/5.7.0/i686-linux /local/perl/5.7.0/lib/site_perl/5.7.0 /local/perl/5.7.0/lib/site_perl . Environment for perl v5.7.0: HOME=/home/gisle LANG=POSIX LANGUAGE (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/home/gisle/bin:/usr/local/bin:/usr/bin:/usr/X11R6/bin:/bin:/usr/lib/java/bin:/var/lib/dosemu:/usr/games/bin:/usr/games:/opt/gnome/bin:/opt/kde/bin:/usr/openwin/bin:.:/local/perl/bin:/usr/lib/pgsql/bin:/opt/pilotsdk/bin:/var/qmail/bin:/local/ssh/bin PERL_BADLANG (unset) SHELL=/bin/bash ```
p5pRT commented 21 years ago

From @iabyn

(Just reviewing old perl bugs).

This appears to be fixed in 5.8.0.

Regards\,

Dave M.

p5pRT commented 21 years ago

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