The switch to IO::Handle in v0.30 is great, except that the handle returned does not have a file
associated with it! This patch fixes it:
--- a/lib/IO/Pager/Unbuffered.pm
+++ b/lib/IO/Pager/Unbuffered.pm
@@ -16,7 +16,7 @@ sub new(;$) { # [FH], procedural
return $_[1] if defined($_[2]) && $_[2] eq 'procedural';
#...fall back to IO::Handle for transparent OO programming
- eval "require IO::Handle" && return new IO::Handle;
+ eval 'require IO::Handle' && return IO::Handle->new_from_fd(fileno $_[1], 'w');
}
$!=$@, return 0 if $@ =~ 'pipe';