using local on SIG handler
Johannes Plunien [Sun, 26 Oct 2008 21:24:18 +0000 (22:24 +0100)]
t/89inflate_datetime.t

index 54cc1ad..e67e1c0 100644 (file)
@@ -81,7 +81,7 @@ is($created_on->time_zone->name, 'America/Chicago', 'Correct timezone');
 # We expect one warning
 SKIP: {
     skip "ENV{DBIC_FLOATING_TZ_OK} was set, skipping", 1 if $ENV{DBIC_FLOATING_TZ_OK};
-    $SIG{__WARN__} = sub {
+    local $SIG{__WARN__} = sub {
         like(
             shift,
             qr/You're using a floating timezone, please see the documentation of DBIx::Class::InflateColumn::DateTime for an explanation/,