Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
OK 1
Use of uninitialized value $got2 in scalar chomp at try.pl line 24.
Use of uninitialized value $got2 in string eq at try.pl line 25.

Select or download this

void to_FH(PerlIO * stream) {
     FILE * stdio_stream = PerlIO_exportFILE(stream, NULL);
...
     fflush(stdio_stream);
     PerlIO_releaseFILE(stream, stdio_stream);
}