Changeset 747

Timestamp:

02/15/17 16:11:31 (8 years ago)

Author:

Kris Deugau

Message:

/trunk

Fix subtle precedence bug that issues a warning as of Perl 5.19.4. Mostly
harmless, but an error precolating up from DBI would have been dropped
instead of shown or logged.

File:

• trunk/DNSDB.pm (modified) (1 diff)

trunk/DNSDB.pm

@@ -5029 +5029 @@
 
 ##fixme: should probably sent the warning somewhere else
-  return $dbh->selectall_arrayref($sql, { Slice => {} }, $args{searchfor}, $args{searchfor})
+  my $ret = $dbh->selectall_arrayref($sql, { Slice => {} }, $args{searchfor}, $args{searchfor})
     or warn $dbh->errstr;
+  return $ret;
 
 } # end recSearch()