function isError($data) {
    return (bool)(is_object($data) &&
                  (get_class($data) == 'pear_error' ||
                   is_subclass_of($data, 'pear_error')));
}