diff options
| author | Yorhel <git@yorhel.nl> | 2016-09-18 16:22:11 +0200 |
|---|---|---|
| committer | Yorhel <git@yorhel.nl> | 2016-09-18 16:29:58 +0200 |
| commit | 2ab67dd6b64424b7aadf2f4e6eb95b06b66ab385 (patch) | |
| tree | 3fa0def9bea9198b7eb089202dc4f86897420314 | |
| parent | 9f7bdb22ec6a68f58fab347c7ab89644c9e9d207 (diff) | |
Suppress silly Perl 5.22 warnings about extra sprintf args
| -rw-r--r-- | README | 4 | ||||
| -rw-r--r-- | lib/Multi/API.pm | 1 | ||||
| -rw-r--r-- | lib/VNDB/DB/ULists.pm | 1 | ||||
| -rw-r--r-- | lib/VNDB/DB/VN.pm | 1 |
4 files changed, 5 insertions, 2 deletions
@@ -18,10 +18,10 @@ Requirements global requirements: Linux, or an OS that resembles Linux. Chances are VNDB won't run on Windows. PostgreSQL 9.3+ (don't try older versions or other SQL databases, it won't work) - perl 5.20 recommended, 5.10+ may also work + perl 5.22 recommended, 5.10+ may also work A webserver that works with TUWF (lighttpd and Apache are known to work) - (perl 5.20 core modules are not listed.) + (perl 5.22 core modules are not listed.) General: Crypt::ScryptKDF 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}; diff --git a/lib/VNDB/DB/ULists.pm b/lib/VNDB/DB/ULists.pm index 23bde7cf..e6a85ba0 100644 --- a/lib/VNDB/DB/ULists.pm +++ b/lib/VNDB/DB/ULists.pm @@ -303,6 +303,7 @@ sub dbWishListGet { push @join, 'JOIN vn v ON v.id = wl.vid'; } + no if $] >= 5.022, warnings => 'redundant'; my $order = sprintf { title => 'v.title %s', added => 'wl.added %s', diff --git a/lib/VNDB/DB/VN.pm b/lib/VNDB/DB/VN.pm index 0c684f89..b43ac791 100644 --- a/lib/VNDB/DB/VN.pm +++ b/lib/VNDB/DB/VN.pm @@ -111,6 +111,7 @@ sub dbVNGet { qq|(SELECT AVG(tvh.rating) FROM tags_vn_inherit tvh WHERE tvh.tag IN($tag_ids) AND tvh.vid = v.id AND spoiler <= $o{tagspoil} GROUP BY tvh.vid) AS tagscore| : (), ); + no if $] >= 5.022, warnings => 'redundant'; my $order = sprintf { id => 'v.id %s', rel => 'v.c_released %s, v.title ASC', |