--- cvsroot/Coro/Coro.pm	2008/11/08 16:46:32	1.210
+++ cvsroot/Coro/Coro.pm	2008/11/10 00:02:29	1.211
@@ -58,7 +58,7 @@
 
 package Coro;
 
-use strict;
+use strict qw(vars subs);
 no warnings "uninitialized";
 
 use Coro::State;
@@ -154,7 +154,7 @@
 
    # call all destruction callbacks
    $_->(@{$self->{_status}})
-      for @{(delete $self->{_on_destroy}) || []};
+      for @{ delete $self->{_on_destroy} || [] };
 }
 
 # this coroutine is necessary because a coroutine