lei: fix oneshot TTY detection by passing STD*{GLOB}

...  instead of STD*{IO}.  I'm not sure why *STDOUT{IO} being an
IO::File object disqualifies it from the "-t" perlop check
returning true on TTY, but it does.  So use *STDOUT{GLOB} for
now.

http://nntp.perl.org/group/perl.perl5.porters/258760
Message-ID: <X/kgIqIuh4ZtUZNR@dcvr>

diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm
index 24f5930bdab58297d0e87263d68e2ca7a7d3f0ff..170231917ccf167ad7bb46842237181b66d259c6 100644 (file)
--- a/lib/PublicInbox/LEI.pm
+++ b/lib/PublicInbox/LEI.pm
@@ -795,9 +795,9 @@ sub oneshot {
        local %PATH2CFG;
        umask(077) // die("umask(077): $!");
        dispatch((bless {
-               0 => *STDIN{IO},
-               1 => *STDOUT{IO},
-               2 => *STDERR{IO},
+               0 => *STDIN{GLOB},
+               1 => *STDOUT{GLOB},
+               2 => *STDERR{GLOB},
                env => \%ENV
        }, __PACKAGE__), @ARGV);
 }