--- AnyEvent/lib/AnyEvent/Handle.pm	2011/09/01 04:07:18	1.223
+++ AnyEvent/lib/AnyEvent/Handle.pm	2011/09/05 07:21:54	1.224
@@ -1083,7 +1083,7 @@
 register_write_type storable => sub {
    my ($self, $ref) = @_;
 
-   require Storable;
+   require Storable unless $Storable::VERSION;
 
    pack "w/a*", Storable::nfreeze ($ref)
 };
@@ -1713,7 +1713,7 @@
 register_read_type storable => sub {
    my ($self, $cb) = @_;
 
-   require Storable;
+   require Storable unless $Storable::VERSION;
 
    sub {
       # when we can use 5.10 we can use ".", but for 5.8 we use the re-pack method