- Timestamp:
- 2005-11-29T12:26:04+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/DBPlug.pm
r10923 r10956 157 157 } 158 158 $callback =~ s/sub (\w+?)_callback/sub/; 159 my $fieldname=$1; 160 eval "\$callbacks{'$fieldname'} = $callback ; 1"; 159 my $fieldname = $1; 160 my $ret = eval "\$callbacks{'$fieldname'} = $callback ; 1"; 161 if (!defined($ret)) { 162 print $outhandle "DBPlug: error eval'ing callback: $@\n"; 163 exit(1); 164 } 161 165 $callback=""; 166 print $outhandle "DBPlug: callback registered for '$fieldname'\n" 167 if $dbplug_debug; 162 168 } elsif ($callback) { 163 169 # add this line to the callback function
Note:
See TracChangeset
for help on using the changeset viewer.