| Subject: | [PATCH] wrong return precedence |
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 ($) {