X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F47bind_attribute.t;h=3bc1935d9be753e5618b2bec68facb67af945250;hb=d4483998dff1af8eff35b3c5398f564a9a1fb9d8;hp=8f66f6c914dcc3f9576b095dbd257ae67195b0c5;hpb=6eec9003c0b7825a896bec4e87b4139443b8bf88;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/47bind_attribute.t b/t/47bind_attribute.t
index 8f66f6c..3bc1935 100644
--- a/t/47bind_attribute.t
+++ b/t/47bind_attribute.t
@@ -73,6 +73,10 @@ $rs = $schema->resultset('Complex')->search({}, { bind => [ 1999 ] })
 is ( $rs->count, 1, '...cookbook (bind first) + chained search' );
 
 TODO: {
+    # not sure what causes an uninit warning here, please remove when the TODO starts to pass,
+    # so the real reason for the warning can be found and fixed
+    local $SIG{__WARN__} = sub { warn @_ unless $_[0] =~ /uninitialized/ };
+
     local $TODO = 'bind args order needs fixing (semifor)';
     $rs = $schema->resultset('Complex')->search({}, { bind => [ 1999 ] })
         ->search({ 'artistid' => 1 }, {