| 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: | DBIx-Cursor-0.14-returnor.patch |
diff -bu ./Cursor.pm~ ./Cursor.pm
--- ./Cursor.pm~ 2002-09-09 15:59:04.000000000 -0500
+++ ./Cursor.pm 2013-07-25 10:07:23.589352378 -0500
@@ -97,7 +97,7 @@
my $self = shift;
my $colname = shift;
- return $self->{type}{$colname} or croak ("column $colname not found");
+ return $self->{type}{$colname} || croak ("column $colname not found");
}
# ----------------------------------------------------------------------