From: Dagfinn Ilmari Mannsåker Date: Mon, 28 Jul 2014 23:05:22 +0000 (+0100) Subject: Silence more Firebird warnings X-Git-Tag: 0.07041~20 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class-Schema-Loader.git;a=commitdiff_plain;h=071c2f8d29c031bc02f207d1e326ab22db0a19f8 Silence more Firebird warnings --- diff --git a/t/10_09firebird_common.t b/t/10_09firebird_common.t index 65ce5c0..23c71e8 100644 --- a/t/10_09firebird_common.t +++ b/t/10_09firebird_common.t @@ -198,7 +198,7 @@ q{ # get rid of stupid warning from InterBase/GetInfo.pm if ($dsns{FIREBIRD_INTERBASE}) { local $SIG{__WARN__} = sigwarn_silencer( - qr{^Use of uninitialized value in sprintf at \S+DBD/InterBase/GetInfo\.pm line \d+\.$|^Missing argument in sprintf at \S+DBD/InterBase/GetInfo.pm line \d+\.$} + qr{^(?:Use of uninitialized value|Argument "[0-9_]+" isn't numeric|Missing argument) in sprintf at \S+DBD/InterBase/GetInfo.pm line \d+\.$} ); require DBD::InterBase; require DBD::InterBase::GetInfo;