search

Perl / perl5

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

$/="" suppresses input from PerlIO::scalar #7782

Closed p5pRT closed 19 years ago

p5pRT commented 19 years ago

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

Searchable as RT34030$

p5pRT commented 19 years ago

From Robin.Barker@npl.co.uk

Created by robin.barker@npl.co.uk

With the input record separator set to '' for paragraph mode ($/=''; or perl -00) I can't read from a PerlIO​::scalar.

Robin

% perl -Mstrict -we 'my $in= "a\nb\n"; open my $io\,q(\<)\,\$in or die; print while \<$io>;' a b % perl -Mstrict -00we 'my $in= "a\nb\n"; open my $io\,q(\<)\,\$in or die; print while \<$io>;'

No output!

Perl Info ``` Flags: category=core severity=low Site configuration information for perl v5.8.6: Configured by Robin Barker at Thu Jan 27 16:00:06 GMT 2005. Summary of my perl5 (revision 5 version 8 subversion 6) configuration: Platform: osname=solaris, osvers=2.7, archname=sun4-solaris-64int uname='sunos tempest 5.7 generic_106541-04 sun4u sparc sunw,ultra-5_10 ' config_args='-des -Dcc=gcc -Dprefix=/opt/perl -Uinstallusrbinperl -Dcf_email=Robin.Barker@npl.co.uk -Dcf_by=Robin Barker -Dman1dir=none -Dman3dir=none -Doptimize=-O -g -Duse64bitint -Dinc_version_list=5.8.5 5.8.4 5.8.3 5.8.2 5.8.1 5.8.0 5.6.1 5.6.0 5.005 -Dotherlibdirs=/usr/local/lib/perl5/site_perl' 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=define use64bitall=undef uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='gcc', ccflags ='-DDEBUGGING -fno-strict-aliasing -pipe -I/opt/db/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-O -g', cppflags='-DDEBUGGING -fno-strict-aliasing -pipe -I/opt/db/include' ccversion='', gccversion='3.4.3', gccosandvers='solaris2.7' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=87654321 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 ivtype='long long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=8, prototype=define Linker and Libraries: ld='gcc', ldflags =' -L/opt/db/lib ' libpth=/opt/db/lib /usr/lib /usr/ccs/lib /usr/local/lib libs=-lsocket -lnsl -ldb -ldl -lm -lc perllibs=-lsocket -lnsl -ldl -lm -lc libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a gnulibc_version='' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' -Wl,-E' cccdlflags='-fPIC', lddlflags='-Wl,--rpath -Wl,/opt/db/lib -Wl,-E -G -L/opt/db/lib' Locally applied patches: @INC for perl v5.8.6: /home/rmb1/appl/lib/perl5/5.8.6/sun4-solaris-64int /home/rmb1/appl/lib/perl5/5.8.6 /home/rmb1/appl/lib/perl5/site_perl/5.8.6/sun4-solaris-64int /home/rmb1/appl/lib/perl5/site_perl/5.8.6 /home/rmb1/appl/lib/perl5/site_perl/5.8.5 /home/rmb1/appl/lib/perl5/site_perl/5.8.4 /home/rmb1/appl/lib/perl5/site_perl/5.8.3 /home/rmb1/appl/lib/perl5/site_perl/5.8.2 /home/rmb1/appl/lib/perl5/site_perl/5.8.1 /home/rmb1/appl/lib/perl5/site_perl/5.8.0 /home/rmb1/appl/lib/perl5/site_perl/5.6.1 /home/rmb1/appl/lib/perl5/site_perl/5.6.0 /home/rmb1/appl/lib/perl5/site_perl/5.005 /home/rmb1/appl/lib/perl5/site_perl /opt/perl/lib/5.8.6/sun4-solaris-64int /opt/perl/lib/5.8.6 /opt/perl/lib/site_perl/5.8.6/sun4-solaris-64int /opt/perl/lib/site_perl/5.8.6 /opt/perl/lib/site_perl/5.8.5 /opt/perl/lib/site_perl/5.8.4 /opt/perl/lib/site_perl/5.8.3 /opt/perl/lib/site_perl/5.8.2 /opt/perl/lib/site_perl/5.8.1 /opt/perl/lib/site_perl/5.8.0 /opt/perl/lib/site_perl/5.6.1 /opt/perl/lib/site_perl/5.6.0 /opt/perl/lib/site_perl/5.005 /opt/perl/lib/site_perl /usr/local/lib/perl5/site_perl/5.8.0 /usr/local/lib/perl5/site_perl/5.6.0 /usr/local/lib/perl5/site_perl/5.005 /usr/local/lib/perl5/site_perl . Environment for perl v5.8.6: HOME=/home/rmb1 LANG=C LANGUAGE (unset) LD_LIBRARY_PATH=/usr/lib LOGDIR (unset) PATH=/home/rmb1/appl/script:/opt/SUNWspci/bin/:/usr/tempest/bin:/usr/local/bin:/usr/local/Admigration/exec:/usr/local/hotjava/bin:/usr/openwin/bin:/usr/dt/bin:/usr/ccs/bin:/usr/bin PERL5LIB=/home/rmb1/appl/lib/perl5/5.8.6:/home/rmb1/appl/lib/perl5/site_perl PERLDOC=-n 'groff -Tlatin1' PERL_BADLANG (unset) SHELL=/usr/bin/tcsh ------------------------------------------------------------------- This e-mail and any attachments may contain confidential and/or privileged material; it is for the intended addressee(s) only. If you are not a named addressee, you must not use, retain or disclose such information. NPL Management Ltd cannot guarantee that the e-mail or any attachments are free from viruses. NPL Management Ltd. Registered in England and Wales. No: 2937881 Registered Office: Teddington, Middlesex, United Kingdom TW11 0LW. ------------------------------------------------------------------- ```
p5pRT commented 19 years ago

From @rgs

Fixed by change 24543 in bleadperl.

p5pRT commented 19 years ago

The RT System itself - Status changed from 'new' to 'open'

p5pRT commented 19 years ago

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