From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 4 May 2005 18:31:19 +0000 (+0000)
Subject: Fix test numerotation
X-Git-Tag: perl-5.9.3~2121
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/4269b21d31641a087d235fa15be3b307d755c185

Fix test numerotation

p4raw-id: //depot/perl@24386
---

diff --git a/t/op/goto.t b/t/op/goto.t
index e549e1e..ac3e489 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();