| Subject: | [PATCH] wrong return precedence |
Besides failing tests t/0.t: 13, 49
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: | File-PathInfo-Ext-1.30-returnor.patch |
diff -bu ./lib/File/PathInfo/Ext.pm~ ./lib/File/PathInfo/Ext.pm
--- ./lib/File/PathInfo/Ext.pm~ 2009-11-24 09:35:21.000000000 -0600
+++ ./lib/File/PathInfo/Ext.pm 2013-07-25 10:47:44.283601037 -0500
@@ -143,7 +143,7 @@
File::Copy::move( $abs_from, $abs_to) or confess("Cant move to $abs_to, $!");
- return $self->set($abs_to) or confess("cant set() $abs_to");
+ return $self->set($abs_to) || confess("cant set() $abs_to");
}