From 4269b21d31641a087d235fa15be3b307d755c185 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 4 May 2005 18:31:19 +0000
Subject: [PATCH] Fix test numerotation

p4raw-id: //depot/perl@24386
---
 t/op/goto.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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();
 
-- 
2.7.4