--- CV/lib/Gtk2/CV.pm	2005/07/20 22:33:01	1.16
+++ CV/lib/Gtk2/CV.pm	2005/07/20 22:52:15	1.17
@@ -11,8 +11,20 @@
 
 use IO::AIO;
 
-add_watch Glib::IO IO::AIO::poll_fileno,
-                   in => sub { IO::AIO::poll_cb; 1 };
+my $aio_source;
+
+sub enable_aio {
+   $aio_source ||=
+      add_watch Glib::IO IO::AIO::poll_fileno,
+                         in => sub { IO::AIO::poll_cb; 1 };
+}
+
+sub disable_aio {
+   remove Glib::Source $aio_source;
+   undef $aio_source;
+}
+
+enable_aio;
 IO::AIO::max_outstanding 128;
 
 sub find_rcfile($) {