--TEST--
Test 57: Perl and PHP output buffering
--SKIPIF--
<?php require_once('skipif.inc'); ?>
--FILE--
<?php
function xxx($str) {
  return "buf[\n".$str."]\n";
}
ob_start("xxx");

echo "PHP echo 1\n";
$perl = new Perl();
$perl->eval(<<<PERL_END
format STDOUT =
Perl's write
.
write;
PERL_END
);
echo "PHP echo 2\n";
$perl->eval("print \"Perl's print\n\";");
echo "PHP echo 3\n";
$perl->eval("printf \"Perl's printf\n\";");
echo "PHP echo 4\n";
?>
--EXPECT--
buf[
PHP echo 1
Perl's write
PHP echo 2
Perl's print
PHP echo 3
Perl's printf
PHP echo 4
]