Properly local()ize several $SIG{__WARN__} handlers

[dbsrgits/DBIx-Class.git] / t / 100extra_source.t

diff --git a/t/100extra_source.t b/t/100extra_source.t
index ac92209..5c531fd 100644 (file)
--- a/t/100extra_source.t
+++ b/t/100extra_source.t
@@ -26,7 +26,7 @@ my $new_source = DBICTest::ResultSource::OtherSource->new({
 $new_source->add_column('other_col' => { data_type => 'integer', default_value => 1 });
 
 my $warn = '';
-$SIG{__WARN__} = sub { $warn = shift };
+local $SIG{__WARN__} = sub { $warn = shift };
 
 {
   $schema->register_extra_source( 'artist->extra' => $new_source );