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

Owner: Nobody
Requestors: chipmunk <rjk [at] linguist.dartmouth.edu>
Cc:
AdminCc:

Operating System: irix
PatchStatus: (no value)
Severity: (no value)
Type: docs
Perl Version: (no value)
Fixed In: (no value)



Date: Tue, 20 Jul 1999 14:52:33 -0400 (EDT)
From: "Ronald J. Kimball" <rjk [...] linguist.dartmouth.edu>
To: perlbug [...] perl.com
Subject: do 'file' under taint checking
Download (untitled) / with headers
text/plain 2.8k
----------------------------------------------------------------- [Please enter your report here] do 'file'; fails silently under taint checking. I have confirmed this problem with perl5.004_04 and perl5.005_03. Doesn't seem to be documented, so I'm reporting it. taintdo.pl: #!perl -w print "Will do it.\n"; $do = do 'doit.pl'; if (not defined $do) { print "Didn't do it:\n$!\n$@\n"; } else { print "Did it.\n"; } doit.pl: print "Doing it.\n"; ~> perl taintdo.pl Will do it. Doing it. Did it. ~> perl -T taintdo.pl Will do it. Didn't do it: No such file or directory ~> (Of course, the file still exists, that's just the unset value of $! reporting file not found.) I could find nothing in either perlsec or perlfunc about this interaction between taint checking and do. After finally figuring out the problem (no, I'm not going crazy!) I worked around it by replacing do with require. It would be nice to get this either fixed or documented, though. (I'm reporting this with perl5.004_04, but it applies to perl5.005_03 as well.) [Please do not change anything below this line] ----------------------------------------------------------------- --- Site configuration information for perl 5.00404: Configured by scotth at Wed Dec 3 09:14:22 PST 1997. Summary of my perl5 (5.0 patchlevel 4 subversion 4) configuration: Platform: osname=irix, osvers=6.5, archname=irix-n32 uname='irix hoshi 6.5 11251326 ip22 ' hint=recommended, useposix=true, d_sigaction=define bincompat3=y useperlio=define d_sfio=undef Compiler: cc='cc -n32 -mips3', optimize='-O3 -mips3', gccversion= cppflags='-D_BSD_SIGNALS -D_BSD_TYPES -D_BSD_TIME -OPT:Olimit=0:space=ON -DLANGUAGE_C -DEMBEDMYMALLOC' ccflags ='-D_BSD_SIGNALS -D_BSD_TYPES -D_BSD_TIME -woff 1009,1110,1184 -OPT:Olimit=0:space=ON -DLANGUAGE_C -DEMBEDMYMALLOC' 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='cc', ldflags ='-n32' libpth=/usr/lib32 /lib32 libs=-lm libc=/usr/lib32/libc.so, so=so useshrplib=true, libperl=libperl.so.4.4 Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='' cccdlflags=' ', lddlflags='-n32 -mips3 -shared' Locally applied patches: --- @INC for perl 5.00404: /usr/share/lib/perl5/irix-n32/5.00404 /usr/share/lib/perl5 /usr/share/lib/perl5/site_perl/irix-n32 /usr/share/lib/perl5/site_perl /usr/share/lib/perl5/sgi_perl . --- Environment for perl 5.00404: HOME=/usr/people/rjk LANG=C LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/usr/sbin:/usr/bsd:/sbin:/usr/bin:/usr/bin/X11:/usr/linguist/bin:/usr/local/bin:/usr/afsws/bin:/usr/etc:/usr/people/rjk/scripts:/usr/people/rjk/bin:. 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