X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fproto.t;h=bf13c9266193b8b1f470a688c4c6c9c1f26a33f7;hb=c677b4195a09035d3ec2aa356c8025a356b556db;hp=240eb09374c98dc8932df2dde649e257079e2219;hpb=0ba8c7aa7fbe181c41b885283412d5b55484326e;p=p5sagit%2FDevel-Declare.git

diff --git a/t/proto.t b/t/proto.t
index 240eb09..bf13c92 100644
--- a/t/proto.t
+++ b/t/proto.t
@@ -1,13 +1,13 @@
 use strict;
 use warnings;
-use Test::More 'no_plan';
+use Test::More;
 
 sub fun :lvalue { return my $sv; }
 
 sub X { "what?" }
 
 sub handle_fun {
-  my ($pack, $use, $name, $proto) = @_;
+  my ($usepack, $use, $inpack, $name, $proto) = @_;
   my $XX = sub (&) {
     my $cr = $_[0];
     return sub {
@@ -24,3 +24,5 @@ my $foo = fun ($a, $b) { "woot" };
 
 is($foo->(), '$a, $b: woot', 'proto declarator ok');
 is(X(), 'what?', 'X sub restored ok');
+
+done_testing;