Commit 8a1a3f71 authored by Magnus Svensson's avatar Magnus Svensson

WL#4189 mtr.pl v2

 - Fix the regex for finding core files ie. anything that starts with "core" 
 - Add collection of *.dmp files on windows.
parent 5f8740cb
...@@ -464,8 +464,9 @@ sub run_test_server ($$$) { ...@@ -464,8 +464,9 @@ sub run_test_server ($$$) {
mtr_report(" - saving '$worker_savedir/' to '$savedir/'"); mtr_report(" - saving '$worker_savedir/' to '$savedir/'");
rename($worker_savedir, $savedir); rename($worker_savedir, $savedir);
# Move any core files from e.g. mysqltest # Move any core files from e.g. mysqltest
foreach my $coref (glob("core*")) foreach my $coref (glob("core*"), glob("*.dmp"))
{ {
mtr_report(" - found '$coref', moving it to '$savedir'");
move($coref, $savedir); move($coref, $savedir);
} }
if ($opt_max_save_core > 0) { if ($opt_max_save_core > 0) {
...@@ -475,7 +476,9 @@ sub run_test_server ($$$) { ...@@ -475,7 +476,9 @@ sub run_test_server ($$$) {
my $core_file= $File::Find::name; my $core_file= $File::Find::name;
my $core_name= basename($core_file); my $core_name= basename($core_file);
if ($core_name =~ "core*"){ if ($core_name =~ /^core/ or # Starting with core
(IS_WINDOWS and $core_name =~ /\.dmp$/)){
# Ending with .dmp
mtr_report(" - found '$core_name'", mtr_report(" - found '$core_name'",
"($num_saved_cores/$opt_max_save_core)"); "($num_saved_cores/$opt_max_save_core)");
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment