<?php
ini_set('include_path', '.:/usr/local/share/pear');
require 'PEAR.php';

if(!function_exists('is_a')) {
	function is_a( $object, $className ) {
		return((strtolower($className) == get_class($object))
			or (is_subclass_of($object, $className)));
   }
}

PEAR::setErrorHandling(PEAR_ERROR_DIE);

class Foo {
	function Bar() {
		PEAR::pushErrorHandling(PEAR_ERROR_RETURN);
		return(PEAR::raiseError('Test error from Foo::Bar()'));
		PEAR::popErrorHandling();
	}
}

// Works fine
PEAR::pushErrorHandling(PEAR_ERROR_PRINT);
$er = PEAR::raiseError('Test Error, inline');
PEAR::popErrorHandling();


// Doesn't work
$foo = new Foo;
$foo->Bar();
?>