Select Code to Download

#!/usr/bin/perl --
use Inline C => Config =>
    BUILD_NOISY => 1,
...

__END__

((((Inline::C PerlIO_printf => PerlIO_stderr()(99417c) is PerlIO_filen
+o()(2)
))))
main is over
...
Inline::C fprintf => PerlIO_stderr()(0099417C) is PerlIO_fileno()(2)
Inline::C fprintf => stderr(77C5FCC0) is fileno(2)
will somebody please eat my stderr buffer

((((Inline::C PerlIO_printf => PerlIO_stderr()(99417c) is PerlIO_filen
+o()(2)
))))
main is over
perl is over
will somebody please eat my stderr buffer

// crt_dup.c
// This program uses the variable old to save
// the original stdout. It then opens a new file named
...
  *pFile = fopen(filename, mode);
  return *pFile != NULL ? 0 : 1;
}

This goes to stdout first
This goes to stdout also

...
echo this goes to 'data'
666
This goes to file 'data'