| Subject: | [PATCH] wrong return precedence |
returns binds stronger than or, so the expression after or is ignored.
See https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802
| Subject: | Lingua-PT-Abbrev-0.08-returnor.patch |
diff -bu Lingua-PT-Abbrev-0.08-cQhM2S/lib/Lingua/PT/Abbrev.pm~ Lingua-PT-Abbrev-0.08-cQhM2S/lib/Lingua/PT/Abbrev.pm
--- Lingua-PT-Abbrev-0.08-cQhM2S/lib/Lingua/PT/Abbrev.pm~ 2012-08-22 02:13:21.000000000 -0600
+++ Lingua-PT-Abbrev-0.08-cQhM2S/lib/Lingua/PT/Abbrev.pm 2013-07-20 21:38:07.678704379 -0600
@@ -111,8 +111,8 @@
sub _exists {
my $self = shift;
my $word = shift;
- return exists($self->{dic}{$word}) or
- exists($self->{cdic}{$word}) or
+ return exists($self->{dic}{$word}) ||
+ exists($self->{cdic}{$word}) ||
exists($self->{sdic}{$word})
}