fix test counts

diff --git a/t/comp/namedproto.t b/t/comp/namedproto.t
index bc70003..d1057c9 100644 (file)
--- a/t/comp/namedproto.t
+++ b/t/comp/namedproto.t
@@ -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;