about summary refs log tree commit homepage
path: root/lib/PublicInbox/In2Tie.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/PublicInbox/In2Tie.pm')
-rw-r--r--lib/PublicInbox/In2Tie.pm13
1 files changed, 13 insertions, 0 deletions
diff --git a/lib/PublicInbox/In2Tie.pm b/lib/PublicInbox/In2Tie.pm
index db1dc104..7dee3627 100644
--- a/lib/PublicInbox/In2Tie.pm
+++ b/lib/PublicInbox/In2Tie.pm
@@ -5,6 +5,19 @@
 # on Linux::Inotify2 objects
 package PublicInbox::In2Tie;
 use strict;
+use Symbol qw(gensym);
+
+sub io {
+        my $in2 = $_[0];
+        $in2->blocking(0);
+        if ($in2->can('on_overflow')) {
+                # broadcasts everything on overflow
+                $in2->on_overflow(undef);
+        }
+        my $io = gensym;
+        tie *$io, __PACKAGE__, $in2;
+        $io;
+}
 
 sub TIEHANDLE {
         my ($class, $in2) = @_;