Skip Menu |
 

This queue is for tickets about the Catalyst-Plugin-SubRequest CPAN distribution.

Report information
The Basics
Id: 66126
Status: resolved
Priority: 0/
Queue: Catalyst-Plugin-SubRequest

People
Owner: bobtfish [...] bobtfish.net
Requestors: cap10 [...] gwmail.gwu.edu
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: catalyst server debug mode bug
Date: Thu, 24 Feb 2011 11:02:30 -0500
To: bug-Catalyst-Plugin-SubRequest [...] rt.cpan.org
From: Carl Pearson <cap10 [...] gwmail.gwu.edu>
Download (untitled) / with headers
text/plain 1.2k
when using the syntax $c->subreq({ path => ..., }, ... ) the catalyst server will display debugging messages ala | subrequest: /HASH(0x105badf70) | 0.068083s | | subrequest: /HASH(0x1065dbc50) | 0.050289s | | subrequest: /HASH(0x10636d9d0) | 0.046002s | | subrequest: /HASH(0x1062d0100) | 0.091895s | instead of "subrequest: /".$path->{path} to make the reassignment to only occur when debugging, change: $c->stats->profile( end => 'subrequest: /' . $path ) if ($c->debug); to if ($c->debug) { $path = $path->{path} if (ref $path eq 'HASH'); $c->stats->profile( end => 'subrequest: /' . $path ); } alternatively, to make the $path change available throughout the sub (though $path is not currently used elsewhere), change if (ref $path eq 'HASH') { @request_mods{keys %$path} = values %$path; } else { $request_mods{path} = $path; } to reassign the path variable if (ref $path eq 'HASH') { @request_mods{keys %$path} = values %$path; $path = $path->{path}; } else { $request_mods{path} = $path; } this bug occurs with C::P::SubRequest-0.16, perl 5.8.9 (and 5.10.0), on Darwin 10.6.
Thanks for the bug report, I've fixed this issue and shipped a new version.


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

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.