pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-12 13:41:31 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Turn off potential warning garbage for different versions of perl

Browse Source
This commit is contained in:
Akkadius 2014-11-16 21:22:09 -06:00
parent de16db5a2f
commit 9d6248886c
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
common/database.cpp
View File

@ -2094,6 +2094,7 @@ bool Database::CheckDatabaseConversions() {
#endif #endif
} }
/* Run Automatic Database Upgrade Script */ /* Run Automatic Database Upgrade Script */
system("perl db_update.pl ran_from_world"); system("perl db_update.pl ran_from_world");
return true; return true;

3
utils/scripts/db_update.pl
View File

@ -10,6 +10,7 @@ $perl_version = $^V;
$perl_version =~s/v//g; $perl_version =~s/v//g;
print "Perl Version is " . $perl_version . "\n"; print "Perl Version is " . $perl_version . "\n";
if($perl_version > 5.12){ no warnings 'uninitialized'; } if($perl_version > 5.12){ no warnings 'uninitialized'; }
no warnings;
my $confile = "eqemu_config.xml"; #default my $confile = "eqemu_config.xml"; #default
open(F, "<$confile") or die "Unable to open config: $confile\n"; open(F, "<$confile") or die "Unable to open config: $confile\n";
@ -157,7 +158,7 @@ sub ShowMenuPrompt {
} }
sub MenuOptions { sub MenuOptions {
if(defined(@total_updates)){ if(@total_updates){
$option[3] = "Run pending updates... (" . scalar (@total_updates) . ")"; $option[3] = "Run pending updates... (" . scalar (@total_updates) . ")";
} }
else{ else{