diff --git a/common/database.cpp b/common/database.cpp
index b5d3b1138..12ef93223 100644
--- a/common/database.cpp
+++ b/common/database.cpp
@@ -2094,6 +2094,7 @@ bool Database::CheckDatabaseConversions() {
 #endif
 	}
 	/* Run Automatic Database Upgrade Script */
+
 	system("perl db_update.pl ran_from_world"); 
 
 	return true;
diff --git a/utils/scripts/db_update.pl b/utils/scripts/db_update.pl
index 4c8f5da57..ba00bb5b3 100644
--- a/utils/scripts/db_update.pl
+++ b/utils/scripts/db_update.pl
@@ -10,6 +10,7 @@ $perl_version = $^V;
 $perl_version =~s/v//g;
 print "Perl Version is " . $perl_version . "\n";
 if($perl_version > 5.12){ no warnings 'uninitialized';  }
+no warnings;
 
 my $confile = "eqemu_config.xml"; #default
 open(F, "<$confile") or die "Unable to open config: $confile\n";
@@ -157,7 +158,7 @@ sub ShowMenuPrompt {
 }
 
 sub MenuOptions { 
-	if(defined(@total_updates)){ 
+	if(@total_updates){ 
 		$option[3] = "Run pending updates... (" . scalar (@total_updates) . ")";
 	}
 	else{