| 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: | Hash-Type-1.08-returnor.patch |
diff -bu ./Type.pm~ ./Type.pm
--- ./Type.pm~ 2008-03-12 03:03:42.000000000 -0500
+++ ./Type.pm 2013-07-25 09:39:19.432469228 -0500
@@ -326,7 +326,7 @@
}
}
- return eval "sub {" . join(" || ", @cmp) . "}" or croak $@;
+ return (eval "sub {" . join(" || ", @cmp) . "}" or croak $@);
}