| 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: | Basset-1.04-returnor.patch |
diff -bu Basset-1.04-SzZs0v/lib/Basset/Machine.pm~ Basset-1.04-SzZs0v/lib/Basset/Machine.pm
--- Basset-1.04-SzZs0v/lib/Basset/Machine.pm~ 2006-04-27 16:21:43.000000000 -0500
+++ Basset-1.04-SzZs0v/lib/Basset/Machine.pm 2013-07-23 17:21:23.178008185 -0500
@@ -485,7 +485,7 @@
my $self = shift;
my $extractor = $self->extractor or return $self->error("Cannot extract w/o extractor", "XXX");
- return $extractor->extract(@_) or $self->error($extractor->errvals);
+ return $extractor->extract(@_) || $self->error($extractor->errvals);
}
=pod