summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTim Bunce <TimBunce@ig.ac.uk>1998-04-28 10:32:20 +0000
committerTim Bunce <TimBunce@ig.ac.uk>1998-04-28 10:32:20 +0000
commita03d87b4120b6a088a222b59bcc86fd618b5b2f0 (patch)
tree7b9d2244fddd18bc93530582153efdad037997a0
parent8633eaf0dd73cd49a73edecb124977e1c817b8d8 (diff)
downloadperl-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-xt/op/taint.t8
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;
}