Changeset 7685

Timestamp:

2004-07-01T13:41:17+12:00 (20 years ago)

Author:

jrm21

Message:

make sure warning/error messages go to $outhandle.

File:

• trunk/gsdl/perllib/plugins/DBPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/DBPlug.pm

@@ -182 +182 @@
         $callback =~ /[\`]|\|\-/) {
         # no backticks or functions that start new processes allowed
-        print STDERR "DBPlug: bad fuction in callback\n";
+        print $outhandle "DBPlug: bad function in callback\n";
         return 0;
     }
@@ -325 +325 @@
     # check "$sth->err" if empty array for error
     if ($statement_hand->err) {
-    print "received error: \"" . $statement_hand->errstr . "\"\n";
+    print $outhandle "DBPlug: received error: \"" .
+        $statement_hand->errstr . "\"\n";
     }