X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FTak.git;a=blobdiff_plain;f=lib%2FTak.pm;h=65a6153794018d85bf3d4ec31e9842aee8143afa;hp=ce3ca2ea50c74e3c3e4f7a527b475e29c920210f;hb=fb0f5964bfe05daa3f82ec9261cfc0bb9d181223;hpb=addc801e40b2b3ce69c002b38f57bda93bca6707

diff --git a/lib/Tak.pm b/lib/Tak.pm
index ce3ca2e..65a6153 100644
--- a/lib/Tak.pm
+++ b/lib/Tak.pm
@@ -5,15 +5,17 @@ use strictures 1;
 
 our $VERSION = '0.001001'; # 0.1.1
 
-our $loop;
+our ($loop, $did_upgrade);
 
 sub loop { $loop ||= Tak::Loop->new }
 
 sub loop_upgrade {
+  return if $did_upgrade;
   require IO::Async::Loop;
   my $new_loop = IO::Async::Loop->new;
   $loop->pass_watches_to($new_loop) if $loop;
   $loop = $new_loop;
+  $did_upgrade = 1;
 }
 
 sub loop_until {