squelch loud, useless warning

frioux · Mar 1, 2014 · 87b683a · 87b683a
1 parent c74f107
commit 87b683a
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/t/resultset/date-methods-1.t b/t/resultset/date-methods-1.t
@@ -744,6 +744,15 @@ run_me(mysql => {
 
 });
 
+local $SIG{__WARN__} = sub {
+   my $warning = shift;
+
+   return if $warning =~
+      m/DBIx::Class::Storage::DBI::Oracle.*sql_(?:limit_dialect|quote_char)/;
+
+   print STDERR $warning;
+};
+
 run_me(Oracle => {
    engine => 'Oracle',
    utc_now => 'sys_extract_utc(SYSTIMESTAMP)',