Hi all,

I've been banging my head for quite a while on a bad file descriptor problem. Basically, I have TAPx::Parser 0.12 in development and I have tried to clean up the 'tprove' script by adding TAPx::Parser::Source::Perl. That package basically tries to execute some perl code and return a stream:

  use TAPx::Parser::Source::Perl;
  my $source = TAPx::Parser::Source::Perl->new;
  my $file   = 't/00-load.t';
  my $stream = $source->filename($file)->get_stream;
  while ( defined( my $line = $stream->next ) ) {
      print "$line\n";
  }
[download]

It executes the code with the following:

  sub get_stream {
      my ( $self ) = @_;
      my $command = $self->_get_command;

      local *FH;
      # -| is safer, but not portable.
      if ( open FH, "$command |" ) {
          return TAPx::Parser::Iterator->new(\*FH);
      }
      else {
          $self->error("Could not execute ($command): $!");
          return;
      }
  }
[download]

However, whenever I try to run it, I get this error message:

% perl -Ilib examples/tprove2 t/00-load.t
Can't dup STDOUT:  Bad file descriptor at /usr/local/lib/perl5/5.8.7/T
+est/Builder.pm line 1322.
Compilation failed in require at /usr/local/lib/perl5/5.8.7/Test/Build
+er/Module.pm line 3.
BEGIN failed--compilation aborted at /usr/local/lib/perl5/5.8.7/Test/B
+uilder/Module.pm line 3.
Compilation failed in require at /usr/local/lib/perl5/5.8.7/Test/More.
+pm line 22.
BEGIN failed--compilation aborted at /usr/local/lib/perl5/5.8.7/Test/M
+ore.pm line 22.
Compilation failed in require at t/00-load.t line 3.
BEGIN failed--compilation aborted at t/00-load.t line 3.
...
[download]

I am autoflushing STDERR and STDOUT in new(), but now I'm stumped. Any suggestions? If you download the tarball, you'll find that examples/tprove has the old code and examples/tprove2 has the new code. tprove does almost exactly the same thing as what I describe above, but it works fine.

Sorry I don't have a smaller test case handy. I can reproduce this error with smaller code, but so far, I'm not sure if there's something else in my distribution which might be affecting things. Also, any solution should be as portable as possible, but to different operating systems and older versions of Perl.

Update: after struggling with this for over an hour, I think I finally found the problem. If I don't localize the filehandle, this problem goes away. Apparently, localizing that typeglob caused the underlying descriptor to disappear once the localized typeglob went out of scope.

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.