diff options
author | Tim Bunce <TimBunce@ig.ac.uk> | 1998-04-28 10:32:20 +0000 |
---|---|---|
committer | Tim Bunce <TimBunce@ig.ac.uk> | 1998-04-28 10:32:20 +0000 |
commit | a03d87b4120b6a088a222b59bcc86fd618b5b2f0 (patch) | |
tree | 7b9d2244fddd18bc93530582153efdad037997a0 | |
parent | 8633eaf0dd73cd49a73edecb124977e1c817b8d8 (diff) | |
download | perl-a03d87b4120b6a088a222b59bcc86fd618b5b2f0.tar.gz |
[difference between patch application from Change 904 and Change 905]
seems like a test accounting disagreement with
42293d100c3b3a50a5b957fd6ecc510157b5de47
p4raw-link: @904 on //depot/maint-5.004/perl: 0af7994b889ad0dfcacb011f16f9e3c77a9292b9
p4raw-id: //depot/maint-5.004/perl@905
-rwxr-xr-x | t/op/taint.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/op/taint.t b/t/op/taint.t index fa79ee352e..e2866e72ff 100755 --- a/t/op/taint.t +++ b/t/op/taint.t @@ -82,7 +82,7 @@ print PROG 'print "@ARGV\n"', "\n"; close PROG; my $echo = "$Invoke_Perl $ECHO"; -print "1..143\n"; +print "1..145\n"; # First, let's make sure that Perl is checking the dangerous # environment variables. Maybe they aren't set yet, so we'll @@ -580,12 +580,12 @@ else { { my $why = $TAINT."y"; $why =~ s/y/z/; - test 141, tainted $why; + test 143, tainted $why; my $z = "[z]"; $why =~ s/$z/zee/; - test 142, tainted $why; + test 144, tainted $why; $why =~ s/e/'-'.$$/ge; - test 143, tainted $why; + test 145, tainted $why; } |