fix EOF detection of incoming nodes

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 25672f969d7f8502160b1c941f9490c3f0eb4cf5..432507462e5048b51620d271e45307e19300f40c 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -191,7 +191,7 @@ sub del_file
 sub process
 {
        if ($main::systime > $lasttime + 15) {
-               $dbm->sync;
+               $dbm->sync if $dbm;
                $lasttime = $main::systime;
        }
 }