From 466c478f55a2c2b46e136e6f47e03059252260eb Mon Sep 17 00:00:00 2001
From: Udo Spallek <info@wissensvermittlung.com>
Date: Tue, 17 Jan 2006 00:00:15 +0000
Subject: [PATCH] Syntag Error in User.pm

---
 SL/User.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/User.pm b/SL/User.pm
index f1ba06a0c..39d40c4e3 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -654,7 +654,7 @@ sub dbupdate {
   if ($form->{dbupdate}) {
 
     # read update scripts into memory
-    opendir SQLDIR, "sql/." or $form - error($!);
+    opendir SQLDIR, "sql/." or &error("", "$!");
     ## LINET
     @upgradescripts =
       sort(cmp_script_version
-- 
2.20.1