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";
},
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
