fix suite.pm for windows

vuvova · vuvova · commit faeaf978b8c1 · 2019-07-02T20:17:01.000+02:00
diff --git a/mysql-test/suite/plugins/suite.pm b/mysql-test/suite/plugins/suite.pm
@@ -8,7 +8,7 @@ if (-d '../sql') {
   my $src = "$::bindir/plugin/auth_pam/auth_pam_tool";
   my $dst = "$::plugindir/auth_pam_tool_dir/auth_pam_tool";
   ::mkpath( "$::plugindir/auth_pam_tool_dir");
-  symlink $src, $dst or ::copy $src, $dst;
+  eval { symlink $src, $dst } or ::copy $src, $dst;
 }
 
 sub cassandra_running() { 

Original file line number	Diff line number	Diff line change
`@@ -8,7 +8,7 @@ if (-d '../sql') {`
`8`	`8`	`my $src = "$::bindir/plugin/auth_pam/auth_pam_tool";`
`9`	`9`	`my $dst = "$::plugindir/auth_pam_tool_dir/auth_pam_tool";`
`10`	`10`	`::mkpath( "$::plugindir/auth_pam_tool_dir");`
`11`		`- symlink $src, $dst or ::copy $src, $dst;`
	`11`	`+ eval { symlink $src, $dst } or ::copy $src, $dst;`
`12`	`12`	`}`
`13`	`13`
`14`	`14`	`sub cassandra_running() {`