note
Steve_p
<p>To see how fileno() in Perl works, take a quick look at the pp_fileno() function in pp_sys.c in the Perl source code. Assuming your filehandle isn't tied, the steps basically are:</p>
<ol>
<li>Get the IO from the Perl filehandle passed in (or use the IO if that's what you got) </li>
<li>Get the FILE pointer from the IO</li>
<li>Pass the FILE pointer to fileno() to get your file descriptor.</li>
</ol>
<p>Now, to get at <code>Win32API::File::FdGetOsFHandle()</code>, grep around the win32/ subdirectory for your answers. I'm afraid my Win32 skills aren't good enough to help you there.</p>
<div class="pmsig"><div class="pmsig-131262">
<hr/>
<font size=-2>
<p>Test your modules with bleadperl!</p>
<pre>
rsync -avz rsync://public.activestate.com/perl-current/ .
./Configure -des -Dusedevel -Dprefix=/path/to/test/perl
make test
make install
</pre>
<p><strong>Now, please test you modules!</strong> If you have test failures that don't happen with Perl 5.8.8, send a simplified test case to <pre>perlbug at perl.org</pre></p>
</font>
</div></div>
589755
589755