summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-06-21 12:52:37 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-06-21 12:52:37 +0000
commit395ddfe62c8314bb91a6a28057648356e4dfc9bf (patch)
treed4c60aa5144bf40b8b702b3232713db2293f910c /t
parentf206cdda513dcda39e1ced147a33b8497001ef8b (diff)
downloadperl-395ddfe62c8314bb91a6a28057648356e4dfc9bf.tar.gz
Case of confused test numbering.
p4raw-id: //depot/perl@10778
Diffstat (limited to 't')
-rwxr-xr-xt/op/pat.t10
1 files changed, 5 insertions, 5 deletions
diff --git a/t/op/pat.t b/t/op/pat.t
index f8f75358bb..2531d71954 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -6,7 +6,7 @@
$| = 1;
-print "1..632\n";
+print "1..634\n";
BEGIN {
chdir 't' if -d 't';
@@ -1786,13 +1786,13 @@ EOT
#test /o feature
sub test_o { $_[0] =~/$_[1]/o; return $1}
if(test_o('abc','(.)..') eq 'a') {
- print "ok 631\n";
+ print "ok 633\n";
} else {
- print "not ok 631\n";
+ print "not ok 633\n";
}
if(test_o('abc','..(.)') eq 'a') {
- print "ok 632\n";
+ print "ok 634\n";
} else {
- print "not ok 632\n";
+ print "not ok 634\n";
}