Skip Menu |
 

This queue is for tickets about the CatalystX-Usul CPAN distribution.

Report information
The Basics
Id: 87257
Status: resolved
Priority: 0/
Queue: CatalystX-Usul

People
Owner: Support [...] RoxSoft.co.uk
Requestors: rurban [...] x-ray.at
Cc:
AdminCc:

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

Attachments
CatalystX-Usul-0.7.1184-returnor.patch



Subject: [PATCH] wrong return precedence
Download (untitled) / with headers
text/plain 133b
returns binds stronger than or, so the expressions after or are ignored. See https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802
Subject: CatalystX-Usul-0.7.1184-returnor.patch
diff -bu CatalystX-Usul-0.7.1184-d6QzHp/lib/CatalystX/Usul/Functions.pm~ CatalystX-Usul-0.7.1184-d6QzHp/lib/CatalystX/Usul/Functions.pm --- CatalystX-Usul-0.7.1184-d6QzHp/lib/CatalystX/Usul/Functions.pm~ 2012-04-21 12:56:12.000000000 -0500 +++ CatalystX-Usul-0.7.1184-d6QzHp/lib/CatalystX/Usul/Functions.pm 2013-07-24 11:23:15.704223612 -0500 @@ -176,7 +176,7 @@ local ($OFS, $ORS) = $OSNAME eq EVIL ? ("\r\n", "\r\n") : ("\n", "\n"); return print {*STDOUT} @rest - or throw( error => 'IO error [_1]', args =>[ $ERRNO ] ); + || throw( error => 'IO error [_1]', args =>[ $ERRNO ] ); } sub split_on__ (;$$) {
Fixed in next release


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.