Skip Menu |

This queue is for tickets about the Hook-LexWrap CPAN distribution.

Report information
The Basics
Id: 38892
Status: resolved
Priority: 0/
Queue: Hook-LexWrap

Owner: Nobody in particular
Requestors: HEUMANN [...]

Bug Information
Severity: Normal
Broken in:
  • 0.01
  • 0.10
  • 0.20
Fixed in: 0.22

Subject: Incorrect protoype for caller()
Download (untitled) / with headers
text/plain 417b
Hook::LexWrap incorrectly overrides caller() by leaving out the prototype. This is somewhat similar to the problems seen in Contextual::Return[1] and Sub::UpLevel[2]. The attached patch fixes the problem. The attached test probably isn't necessary, but it nicely illustrates the reason this issue has come up. [1] [2]
Subject: caller_prototype.patch
--- /usr/local/share/perl/5.8.8/Hook/ 2008-08-25 20:35:55.000000000 -0700 +++ 2008-08-25 20:35:41.000000000 -0700 @@ -3,7 +3,7 @@ use 5.006; use Carp; -*CORE::GLOBAL::caller = sub { +*CORE::GLOBAL::caller = sub(;$) { my ($height) = ($_[0]||0); my $i=1; my $name_cache;
Subject: caller_prototype.t
Download caller_prototype.t
text/x-perl 131b
#!/usr/bin/perl use strict; use warnings; use Test::More tests => 1; use Test::NoWarnings; use Sub::Uplevel; use Hook::LexWrap;
This was fixed with the 0.22 release (Dec 18 2008).

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to