Thanks for the clarification. I should have read your original post more thoroughtly.

I tried all my tricks to fake out &Pod::Html::pod2html, but I can't make it work without resorting to pipes.

If you wish to resort to pipes, the following Worked For Me(tm). 

use strict;
use IO::File;
use IO::Pipe;
use Pod::Html qw( &pod2html );

# I only use $fh to get a pod string, It is not part
#  of the solution.
my $fh = IO::File->new("<foo.pod")
  or die "filaed to open foo.pod: $!";
$fh->input_record_separator( undef );
my ($str);
$str = $fh->getline();
$fh->close;
# Got the pod string in $str
 
my $pipe = IO::Pipe->new()
  or die "failed to create pipe: $!";
 
my ($pid,$fd);
if ( $pid = fork() )
 { #parent
 
   open(TMPSTDIN, "<&STDIN")
     or die "failed to dup stdin to tmp: $!";
 
   $pipe->reader();
 
   $fd = $pipe->fileno;
   open(STDIN, "<&=$fd")
     or die "failed to dup \$fd to STDIN: $!";
 
   pod2html();

   open(STDIN, "<&TMPSTDIN")
     or die "failed to restore dup'ed stdin: $!";
 }
else
 { #child
   $pipe->writer();
 
   $pipe->print($str);
 
   $pipe->close();
 
   exit 0;
 }

$pipe->close();
 
exit 0;

[download]

I think this will work satifactorally even on the Win32 port of Perl. Win32 doesn't really fork(), it just creates a thread. But I restore the original STDIN and the child dies pretty quickly.

In reply to Re: Re: Re: Problem with tie *STDIN, 'IO::Scalar', \$text; by LunaticLeo
in thread Problem with tie *STDIN, 'IO::Scalar', \$text; by Rudif

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.