Skip Menu |
 

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

Report information
The Basics
Id: 87258
Status: resolved
Priority: 0/
Queue: Class-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


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: Class-Usul-v0.21.3-returnor.patch
diff -bu Class-Usul-v0.21.3-iy3eqg/lib/Class/Usul/Functions.pm~ Class-Usul-v0.21.3-iy3eqg/lib/Class/Usul/Functions.pm --- Class-Usul-v0.21.3-iy3eqg/lib/Class/Usul/Functions.pm~ 2013-05-16 05:50:32.000000000 -0500 +++ Class-Usul-v0.21.3-iy3eqg/lib/Class/Usul/Functions.pm 2013-07-24 11:26:58.054197850 -0500 @@ -149,7 +149,7 @@ local ($OFS, $ORS) = is_win32() ? ("\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 env_prefix ($) {
The patch is nonsense but the code has been amended so the Perl 5.19 will parse it correctly


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.