diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-04 18:31:19 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-04 18:31:19 +0000 |
| commit | 4269b21d31641a087d235fa15be3b307d755c185 (patch) | |
| tree | 8d5a4fc446bffeb4ad815de275b46a07f7d33983 /t | |
| parent | 7376f93fbd879a866564da773adb7b6b1ffe5d19 (diff) | |
| download | perl-4269b21d31641a087d235fa15be3b307d755c185.tar.gz | |
Fix test numerotation
p4raw-id: //depot/perl@24386
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/goto.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/goto.t b/t/op/goto.t index e549e1ea88..ac3e48988d 100755 --- a/t/op/goto.t +++ b/t/op/goto.t @@ -10,7 +10,7 @@ BEGIN { use warnings; use strict; -plan tests => 53; +plan tests => 54; our $foo; while ($?) { @@ -186,7 +186,7 @@ ok($ok, 'works correctly in a nested eval string'); sub f1 { my $x; - goto sub { $x=0; print "ok 28 - don't prematurely free CV\n" } + goto sub { $x=0; ok(1,"don't prematurely free CV\n") } } f1(); |