fix test counts
authorJesse Luehrs <doy@tozt.net>
Sat, 15 Sep 2012 22:07:47 +0000 (17:07 -0500)
committerJesse Luehrs <doy@tozt.net>
Sat, 15 Sep 2012 22:07:47 +0000 (17:07 -0500)
t/comp/namedproto.t

index bc70003..d1057c9 100644 (file)
@@ -77,7 +77,6 @@ sub no_warnings {
 }
 
 BEGIN {
-    print "1..23\n";
     $test = 0;
     if (!is_miniperl) {
         require Scalar::Util;
@@ -211,4 +210,6 @@ BEGIN {
 
 BEGIN { no_warnings("end of compile time") }
 
+END { print "1..$test\n" }
+
 1;