Die RegExp für die Namen der Upgradescripte sollte am Stringende verankert sein,...

[mfinanz.git] / SL / User.pm

diff --git a/SL/User.pm b/SL/User.pm
index 0b42a35a9ae48f487afd7ba2fd6c1d025bb83a34..9697dffb61bae3b6f79be36e0c147f77ee6781ee 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -732,7 +732,7 @@ sub update_available {
 
   opendir SQLDIR, "sql/${dbdriver}-upgrade" or &error("", "sql/${dbdriver}-upgrade: $!");
   my @upgradescripts =
-    grep(/$form->{dbdriver}-upgrade-\Q$cur_version\E.*\.(sql|pl)/, readdir(SQLDIR));
+    grep(/$form->{dbdriver}-upgrade-\Q$cur_version\E.*\.(sql|pl)$/, readdir(SQLDIR));
   closedir SQLDIR;
 
   return ($#upgradescripts > -1);