From ab157fa5a6c6cc3031f3e4746384bec2ac70f2ef Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 24 Dec 2011 19:01:48 -0800
Subject: [PATCH] coresubs.t: Call done_testing with an arg

---
 t/op/coresubs.t | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/t/op/coresubs.t b/t/op/coresubs.t
index 1665cf6..3a8d0de 100644
--- a/t/op/coresubs.t
+++ b/t/op/coresubs.t
@@ -121,7 +121,6 @@ is runperl(prog => 'print CORE->lc, qq-\n-'), "core\n",
 is runperl(prog => '@ISA=CORE; print main->uc, qq-\n-'), "MAIN\n",
  'inherted method calls autovivify coresubs';
 
-is curr_test, $tests+1, 'right number of tests';
-done_testing;
+done_testing $tests;
 
 CORE::__END__
-- 
2.7.4