X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=t%2F103many_to_many_warning.t;h=0cd054bb258e3d802b4b39e86c766fd828d4b440;hp=36d41a80af1f1055952acbd9f60f186df8cba267;hb=8273e845426f0187b4ad6c4a1b42286fa09a648f;hpb=33eafbfd322ab48a2697c0ea9fadfb182fb22a36 diff --git a/t/103many_to_many_warning.t b/t/103many_to_many_warning.t index 36d41a8..0cd054b 100644 --- a/t/103many_to_many_warning.t +++ b/t/103many_to_many_warning.t @@ -8,7 +8,7 @@ plan tests => 4; my $exp_warn = qr/The many-to-many relationship 'bars' is trying to create/; { - my @w; + my @w; local $SIG{__WARN__} = sub { $_[0] =~ $exp_warn ? push @w, $_[0] : warn $_[0] }; my $code = gen_code ( suffix => 1 ); eval "$code"; @@ -19,7 +19,7 @@ my $exp_warn = qr/The many-to-many relationship 'bars' is trying to create/; } { - my @w; + my @w; local $SIG{__WARN__} = sub { $_[0] =~ $exp_warn ? push @w, $_[0] : warn $_[0] }; my $code = gen_code ( suffix => 2 );