split usepack and namepack

[p5sagit/Devel-Declare.git] / t / proto.t

diff --git a/t/proto.t b/t/proto.t
index 240eb09..ab08455 100644 (file)
--- a/t/proto.t
+++ b/t/proto.t
@@ -7,7 +7,7 @@ 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 {