hhf/MySQLTuner-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adding error message when Windows OS is detected

Browse source
This commit is contained in:
Jean-Marie Renouard 2015-11-12 23:55:14 +01:00
parent 448df588d2
commit 02c952c03c
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
mysqltuner.pl
View file

@ -895,6 +895,13 @@ sub compare_tuner_version {
# Checks to see if a MySQL login is possible
my ( $mysqllogin, $doremote, $remotestring, $mysqlcmd, $mysqladmincmd );
my $osname = $^O;
if( $osname eq 'MSWin32' ) {
eval { require Win32; } or last;
$osname = Win32::GetOSName();
#print "\nOS Name: $osname";
die "Windows($osname) is not supported.";
}
sub mysql_setup {
$doremote = 0;
$remotestring = '';