Address http://rt.cpan.org/Public/Bug/Display.html?id=38892

--- Hook-LexWrap-0.21/lib/Hook/LexWrap.pm	2008-11-06 20:57:31.000000000 +0000
+++ Hook-LexWrap-0.21/lib/Hook/LexWrap.pm	2008-11-10 17:02:35.000000000 +0000
@@ -3,7 +3,7 @@
 our $VERSION = '0.21';
 use Carp;
 
-*CORE::GLOBAL::caller = sub {
+*CORE::GLOBAL::caller = sub(;$) {
 	my ($height) = ($_[0]||0);
 	my $i=1;
 	my $name_cache;