Silence 'Missing argument in sprintf' warning on perl 5.22

mariuz · May 28, 2015 · 05a719b · 05a719b
1 parent 813cdf6
commit 05a719b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/DBD/Firebird/GetInfo.pm b/lib/DBD/Firebird/GetInfo.pm
@@ -22,6 +22,7 @@ my $sql_ver_fmt = '%02d.%02d.%04d';   # ODBC version string: ##.##.#####
 my $sql_driver_ver;
 {
     no warnings 'uninitialized';
+    no if $] >= 5.022, warnings => 'missing';
     $sql_driver_ver = sprintf $sql_ver_fmt, split (/\./, $DBD::Firebird::VERSION);
 }