Port to B::Hooks::Parser.

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

diff --git a/t/pack.t b/t/pack.t
index 0222dbd..c4711d4 100644 (file)
--- 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};");
 }