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 /lib/VNDB/DB/VN.pm | |
parent | 9f7bdb22ec6a68f58fab347c7ab89644c9e9d207 (diff) |
Suppress silly Perl 5.22 warnings about extra sprintf args
Diffstat (limited to 'lib/VNDB/DB/VN.pm')
-rw-r--r-- | lib/VNDB/DB/VN.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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', |