Perl-DB-Upgradescripte refactoring: Bugfix #1