summaryrefslogtreecommitdiff
path: root/lib/Multi/API.pm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2016-09-18 16:22:11 +0200
committerYorhel <git@yorhel.nl>2016-09-18 16:29:58 +0200
commit2ab67dd6b64424b7aadf2f4e6eb95b06b66ab385 (patch)
tree3fa0def9bea9198b7eb089202dc4f86897420314 /lib/Multi/API.pm
parent9f7bdb22ec6a68f58fab347c7ab89644c9e9d207 (diff)
Suppress silly Perl 5.22 warnings about extra sprintf args
Diffstat (limited to 'lib/Multi/API.pm')
-rw-r--r--lib/Multi/API.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Multi/API.pm b/lib/Multi/API.pm
index 16069ec6..da38b7b8 100644
--- a/lib/Multi/API.pm
+++ b/lib/Multi/API.pm
@@ -1070,6 +1070,7 @@ sub get_mainsql {
return cerr $c, needlogin => 'Not logged in as a user' if !$sql && !$c->{uid};
$sql = $type->{sqluser} if $c->{uid} && $type->{sqluser};
+ no if $] >= 5.022, warnings => 'redundant';
cpg $c, sprintf($sql, $select, $where, $last, $c->{uid}), \@placeholders, sub {
my @res = $_[0]->rowsAsHashes;
$get->{more} = pop(@res)&&1 if @res > $get->{opt}{results};