Changeset 10956

Timestamp:

2005-11-29T12:26:04+13:00 (18 years ago)

Author:

jrm21

Message:

now catch and exit if we got an error while parsing/evaling any
metadata callback function.

File:

• trunk/gsdl/perllib/plugins/DBPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/DBPlug.pm

@@ -157 +157 @@
         }
         $callback =~ s/sub (\w+?)_callback/sub/;
-        my $fieldname=$1;
-        eval "\$callbacks{'$fieldname'} = $callback ; 1";
+        my $fieldname = $1;
+        my $ret = eval "\$callbacks{'$fieldname'} = $callback ; 1";
+        if (!defined($ret)) {
+        print $outhandle "DBPlug: error eval'ing callback: $@\n";
+        exit(1);
+        }
         $callback="";
+        print $outhandle "DBPlug: callback registered for '$fieldname'\n"
+            if $dbplug_debug;
     } elsif ($callback) {
         # add this line to the callback function