peclweb sql/data.php problem

gistfile1.txt

Index: data.php
===================================================================
--- data.php    (revision 312067)
+++ data.php    (working copy)
@@ -1,5 +1,6 @@
 <?php

+require_once "../include/pear-prepend.php";
 require_once "DB.php";
 require_once "../include/pear-database.php";

@@ -7,7 +8,7 @@
        extract($HTTP_SERVER_VARS);
 }

-PEAR::setErrorHandling(PEAR_ERROR_CALLBACK, "error_handler");
+PEAR::setErrorHandling(PEAR_ERROR_CALLBACK, "data_error_handler");
 list($progname, $type, $user, $pass, $db) = $argv;
 $dbh = DB::connect("$type://$user:$pass@localhost/$db");
 $me = getenv("USER");
@@ -18,7 +19,7 @@
 include "./addpackages.php";
 include "./addacls.php";

-function error_handler($obj) {
+function data_error_handler($obj) {
        print "Error when adding users: ";
        print $obj->getMessage();
        print "\nMore info: ";