From 2ab67dd6b64424b7aadf2f4e6eb95b06b66ab385 Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Sun, 18 Sep 2016 16:22:11 +0200
Subject: Suppress silly Perl 5.22 warnings about extra sprintf args

---
 lib/VNDB/DB/ULists.pm | 1 +
 lib/VNDB/DB/VN.pm     | 1 +
 2 files changed, 2 insertions(+)

(limited to 'lib/VNDB/DB')

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',
-- 
cgit v1.2.3