X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fpack.t;h=c4711d4de1359771ae6cbe7765e80b00337a554a;hb=hook_parser;hp=0222dbd4d62a28cda41720e91d3c68ec88d97e78;hpb=15d0d01400f87e62e06cc5b9ab302371a6f8149f;p=p5sagit%2FDevel-Declare.git

diff --git a/t/pack.t b/t/pack.t
index 0222dbd..c4711d4 100644
--- a/t/pack.t
+++ b/t/pack.t
@@ -5,7 +5,7 @@ use Test::More 'no_plan';
 sub class { $_[0]->(); }
 
 sub handle_class {
-  my ($pack, $use, $name, $proto, $is_block) = @_;
+  my ($usepack, $use, $inpack, $name, $proto, $is_block) = @_;
   return (sub (&) { shift; }, undef, "package ${name};");
 }