my $action;

##</code><code>##

commit 04e43a21088e2c6b07ebde9e57007350cfd7310b
Author: Daniel S. Lewart <lewart@uiuc.edu>
Date:   Tue May 22 21:18:03 2001 -0500

##</code><code>##

-    if (($stop,$action) = split(/\0/,$dbline{$line})) {
+    if ($dbline{$line} && (($stop,$action) = split(/\0/,$dbline{$line}))) {

##</code><code>##

my( $stop, $action );