Skip Menu |
Report information
Id: 961
Status: resolved
Priority: 0/
Queue: perl5

Owner: Nobody
Requestors: nagel [at] intelenet.net
Cc:
AdminCc:

Operating System: Solaris
PatchStatus: (no value)
Severity: medium
Type: install
Perl Version: (no value)
Fixed In: (no value)



Date: Sat, 3 Jul 1999 09:06:07 -0700 (PDT)
From: "Mark D. Nagel" <nagel [...] intelenet.net>
To: perlbug [...] perl.com
Subject: problem with IO::Handle (IO-1.20)
Download (untitled) / with headers
text/plain 2.6k
----------------------------------------------------------------- [Please enter your report here] During some debugging, we found that the method input_line_number in IO::Handle was encountering a problem because it was referencing the bareword STDOUT during execution with 'use strict' in scope. I made the following change to the method: sub input_line_number { my $now = select; my $keep = $.; my $tell = tell qualify($_[0], caller) if ref($_[0]); my $prev = $.; $. = $_[1] if @_ > 1; { no strict 'refs'; $tell = tell $now }; $. = $keep; $prev; } I'm not sure if this is the 'right' fix, but it solves my immediate problem! [Please do not change anything below this line] ----------------------------------------------------------------- --- Site configuration information for perl 5.00404: Configured by nagel at Fri Jul 31 14:35:22 PDT 1998. Summary of my perl5 (5.0 patchlevel 4 subversion 4) configuration: Platform: osname=solaris, osvers=2.5.1, archname=sun4-solaris uname='sunos boris 5.5.1 generic_103640-18 sun4u sparc sunw,ultra-1 ' hint=previous, useposix=true, d_sigaction=define bincompat3=n useperlio=undef d_sfio=undef Compiler: cc='gcc', optimize='-O', gccversion=2.7.2 cppflags='-I/opt/local/include -I/opt/local/include/db' ccflags ='-I/opt/local/include -I/opt/local/include/db' stdchar='unsigned char', d_stdstdio=define, usevfork=false voidflags=15, castflags=0, d_casti32=define, d_castneg=define intsize=4, alignbytes=8, usemymalloc=y, prototype=define Linker and Libraries: ld='gcc', ldflags ='-L/opt/local/lib' libpth=/opt/local/lib /lib /usr/lib /usr/ccs/lib libs=-lsocket -lnsl -lgdbm -ldb -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='-fpic', lddlflags='-G -L/opt/local/lib' Locally applied patches: --- @INC for perl 5.00404: /home/nagel/lib/perl /opt/local/lib/perl5/sun4-solaris/5.00404 /opt/local/lib/perl5 /opt/local/lib/perl5/site_perl/sun4-solaris /opt/local/lib/perl5/site_perl /opt/local/lib/perl5/sun4-solaris . --- Environment for perl 5.00404: HOME=/home/nagel LANG (unset) LD_LIBRARY_PATH=/usr/openwin/lib:/usr/dt/lib:/usr/local/lib LOGDIR (unset) PATH=/home/nagel/bin/links:/home/nagel/bin/hosts:/home/nagel/bin/sparc-sun-solaris2.5.1:/home/nagel/bin:/opt/java/bin:/opt/msql2/bin:/bin:/usr/bin:/usr/local/bin:/usr/sbin:/usr/ucb:/usr/local/pbmplus:/usr/local/rcs:/usr/local/mtools:/usr/local/nmh/bin:/sybase/bin:/opt/LYNX271/bin PERLLIB=/home/nagel/lib/perl PERL_BADLANG (unset) SHELL=/bin/tcsh


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org