perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Doug MacEachern <do...@covalent.net>
Subject RE: FW: bug in mod_perl-1.24 & request->args & request->content
Date Fri, 26 Jan 2001 05:37:34 GMT
call $r->args in a scalar context fixes it.  this is probably related to
tainting bugs in 5.6.0, would be interesting to see if 5.6.1-trial1 cures.

Index: t/net/perl/taint.pl
===================================================================
RCS file: /home/cvs/modperl/t/net/perl/taint.pl,v
retrieving revision 1.3
diff -u -r1.3 taint.pl
--- t/net/perl/taint.pl 1999/08/04 03:43:00     1.3
+++ t/net/perl/taint.pl 2001/01/26 05:35:55
@@ -18,7 +18,7 @@
 
 my $tests = {
     args => sub {
-       eval { system $r->args };
+       eval { system scalar $r->args };
        die "TaintCheck failed, I can `system \$r->args'" unless $@;
        #warn "TRAPPED: `system \$r->args' '$@'\n";
     },



Mime
View raw message