← Back to branch summary

~ubuntu-branches/ubuntu/precise/mysql-5.1/precise

« back to all changes in this revision

Viewing changes to mysql-test/lib/v1/mtr_report.pl

  • Committer: Bazaar Package Importer
  • Author(s): Norbert Tretkowski
  • Date: 2010-03-17 14:56:02 UTC
  • Revision ID: james.westby@ubuntu.com-20100317145602-x7e30l1b2sb5s6w6
Tags: upstream-5.1.45
Import upstream version 5.1.45

Show diffs side-by-side

added added

removed removed

Lines of Context:
mysql-test/lib/v1/mtr_report.pl
 
1
# -*- cperl -*-
 
2
# Copyright (C) 2004-2006 MySQL AB
 
3
# 
 
4
# This program is free software; you can redistribute it and/or modify
 
5
# it under the terms of the GNU General Public License as published by
 
6
# the Free Software Foundation; version 2 of the License.
 
7
# 
 
8
# This program is distributed in the hope that it will be useful,
 
9
# but WITHOUT ANY WARRANTY; without even the implied warranty of
 
10
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
11
# GNU General Public License for more details.
 
12
# 
 
13
# You should have received a copy of the GNU General Public License
 
14
# along with this program; if not, write to the Free Software
 
15
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 
16
 
 
17
# This is a library file used by the Perl version of mysql-test-run,
 
18
# and is part of the translation of the Bourne shell script with the
 
19
# same name.
 
20
 
 
21
use strict;
 
22
use warnings;
 
23
 
 
24
sub mtr_report_test_name($);
 
25
sub mtr_report_test_passed($);
 
26
sub mtr_report_test_failed($);
 
27
sub mtr_report_test_skipped($);
 
28
sub mtr_report_test_not_skipped_though_disabled($);
 
29
 
 
30
sub mtr_report_stats ($);
 
31
sub mtr_print_line ();
 
32
sub mtr_print_thick_line ();
 
33
sub mtr_print_header ();
 
34
sub mtr_report (@);
 
35
sub mtr_warning (@);
 
36
sub mtr_error (@);
 
37
sub mtr_child_error (@);
 
38
sub mtr_debug (@);
 
39
sub mtr_verbose (@);
 
40
 
 
41
my $tot_real_time= 0;
 
42
 
 
43
 
 
44
 
 
45
##############################################################################
 
46
#
 
47
#  
 
48
#
 
49
##############################################################################
 
50
 
 
51
sub mtr_report_test_name ($) {
 
52
  my $tinfo= shift;
 
53
  my $tname= $tinfo->{name};
 
54
 
 
55
  $tname.= " '$tinfo->{combination}'"
 
56
    if defined $tinfo->{combination};
 
57
 
 
58
  _mtr_log($tname);
 
59
  printf "%-30s ", $tname;
 
60
}
 
61
 
 
62
sub mtr_report_test_skipped ($) {
 
63
  my $tinfo= shift;
 
64
 
 
65
  $tinfo->{'result'}= 'MTR_RES_SKIPPED';
 
66
  if ( $tinfo->{'disable'} )
 
67
  {
 
68
    mtr_report("[ disabled ]  $tinfo->{'comment'}");
 
69
  }
 
70
  elsif ( $tinfo->{'comment'} )
 
71
  {
 
72
    mtr_report("[ skipped ]   $tinfo->{'comment'}");
 
73
  }
 
74
  else
 
75
  {
 
76
    mtr_report("[ skipped ]");
 
77
  }
 
78
}
 
79
 
 
80
sub mtr_report_tests_not_skipped_though_disabled ($) {
 
81
  my $tests= shift;
 
82
 
 
83
  if ( $::opt_enable_disabled )
 
84
  {
 
85
    my @disabled_tests= grep {$_->{'dont_skip_though_disabled'}} @$tests;
 
86
    if ( @disabled_tests )
 
87
    {
 
88
      print "\nTest(s) which will be run though they are marked as disabled:\n";
 
89
      foreach my $tinfo ( sort {$a->{'name'} cmp $b->{'name'}} @disabled_tests )
 
90
      {
 
91
        printf "  %-20s : %s\n", $tinfo->{'name'}, $tinfo->{'comment'};
 
92
      }
 
93
    }
 
94
  }
 
95
}
 
96
 
 
97
sub mtr_report_test_passed ($) {
 
98
  my $tinfo= shift;
 
99
 
 
100
  my $timer=  "";
 
101
  if ( $::opt_timer and -f "$::opt_vardir/log/timer" )
 
102
  {
 
103
    $timer= mtr_fromfile("$::opt_vardir/log/timer");
 
104
    $tot_real_time += ($timer/1000);
 
105
    $timer= sprintf "%12s", $timer;
 
106
  }
 
107
  $tinfo->{'result'}= 'MTR_RES_PASSED';
 
108
  mtr_report("[ pass ]   $timer");
 
109
}
 
110
 
 
111
sub mtr_report_test_failed ($) {
 
112
  my $tinfo= shift;
 
113
 
 
114
  $tinfo->{'result'}= 'MTR_RES_FAILED';
 
115
  if ( defined $tinfo->{'timeout'} )
 
116
  {
 
117
    mtr_report("[ fail ]  timeout");
 
118
    return;
 
119
  }
 
120
  else
 
121
  {
 
122
    mtr_report("[ fail ]");
 
123
  }
 
124
 
 
125
  if ( $tinfo->{'comment'} )
 
126
  {
 
127
    # The test failure has been detected by mysql-test-run.pl
 
128
    # when starting the servers or due to other error, the reason for
 
129
    # failing the test is saved in "comment"
 
130
    mtr_report("\nERROR: $tinfo->{'comment'}");
 
131
  }
 
132
  elsif ( -f $::path_timefile )
 
133
  {
 
134
    # Test failure was detected by test tool and it's report
 
135
    # about what failed has been saved to file. Display the report.
 
136
    print "\n";
 
137
    print mtr_fromfile($::path_timefile); # FIXME print_file() instead
 
138
    print "\n";
 
139
  }
 
140
  else
 
141
  {
 
142
    # Neither this script or the test tool has recorded info
 
143
    # about why the test has failed. Should be debugged.
 
144
    mtr_report("\nUnexpected termination, probably when starting mysqld");;
 
145
  }
 
146
}
 
147
 
 
148
sub mtr_report_stats ($) {
 
149
  my $tests= shift;
 
150
 
 
151
  # ----------------------------------------------------------------------
 
152
  # Find out how we where doing
 
153
  # ----------------------------------------------------------------------
 
154
 
 
155
  my $tot_skiped= 0;
 
156
  my $tot_passed= 0;
 
157
  my $tot_failed= 0;
 
158
  my $tot_tests=  0;
 
159
  my $tot_restarts= 0;
 
160
  my $found_problems= 0; # Some warnings in the logfiles are errors...
 
161
 
 
162
  foreach my $tinfo (@$tests)
 
163
  {
 
164
    if ( $tinfo->{'result'} eq 'MTR_RES_SKIPPED' )
 
165
    {
 
166
      $tot_skiped++;
 
167
    }
 
168
    elsif ( $tinfo->{'result'} eq 'MTR_RES_PASSED' )
 
169
    {
 
170
      $tot_tests++;
 
171
      $tot_passed++;
 
172
    }
 
173
    elsif ( $tinfo->{'result'} eq 'MTR_RES_FAILED' )
 
174
    {
 
175
      $tot_tests++;
 
176
      $tot_failed++;
 
177
    }
 
178
    if ( $tinfo->{'restarted'} )
 
179
    {
 
180
      $tot_restarts++;
 
181
    }
 
182
  }
 
183
 
 
184
  # ----------------------------------------------------------------------
 
185
  # Print out a summary report to screen
 
186
  # ----------------------------------------------------------------------
 
187
 
 
188
  if ( ! $tot_failed )
 
189
  {
 
190
    print "All $tot_tests tests were successful.\n";
 
191
  }
 
192
  else
 
193
  {
 
194
    my $ratio=  $tot_passed * 100 / $tot_tests;
 
195
    print "Failed $tot_failed/$tot_tests tests, ";
 
196
    printf("%.2f", $ratio);
 
197
    print "\% were successful.\n\n";
 
198
    print
 
199
      "The log files in var/log may give you some hint\n",
 
200
      "of what went wrong.\n",
 
201
      "If you want to report this error, please read first ",
 
202
      "the documentation at\n",
 
203
      "http://dev.mysql.com/doc/mysql/en/mysql-test-suite.html\n";
 
204
  }
 
205
  if (!$::opt_extern)
 
206
  {
 
207
    print "The servers were restarted $tot_restarts times\n";
 
208
  }
 
209
 
 
210
  if ( $::opt_timer )
 
211
  {
 
212
    use English;
 
213
 
 
214
    mtr_report("Spent", sprintf("%.3f", $tot_real_time),"of",
 
215
               time - $BASETIME, "seconds executing testcases");
 
216
  }
 
217
 
 
218
  # ----------------------------------------------------------------------
 
219
  # If a debug run, there might be interesting information inside
 
220
  # the "var/log/*.err" files. We save this info in "var/log/warnings"
 
221
  # ----------------------------------------------------------------------
 
222
 
 
223
  if ( ! $::glob_use_running_server )
 
224
  {
 
225
    # Save and report if there was any fatal warnings/errors in err logs
 
226
 
 
227
    my $warnlog= "$::opt_vardir/log/warnings";
 
228
 
 
229
    unless ( open(WARN, ">$warnlog") )
 
230
    {
 
231
      mtr_warning("can't write to the file \"$warnlog\": $!");
 
232
    }
 
233
    else
 
234
    {
 
235
      # We report different types of problems in order
 
236
      foreach my $pattern ( "^Warning:",
 
237
                            "\\[Warning\\]",
 
238
                            "\\[ERROR\\]",
 
239
                            "^Error:", "^==.* at 0x",
 
240
                            "InnoDB: Warning",
 
241
                            "InnoDB: Error",
 
242
                            "^safe_mutex:",
 
243
                            "missing DBUG_RETURN",
 
244
                            "mysqld: Warning",
 
245
                            "allocated at line",
 
246
                            "Attempting backtrace", "Assertion .* failed" )
 
247
      {
 
248
        foreach my $errlog ( sort glob("$::opt_vardir/log/*.err") )
 
249
        {
 
250
          my $testname= "";
 
251
          unless ( open(ERR, $errlog) )
 
252
          {
 
253
            mtr_warning("can't read $errlog");
 
254
            next;
 
255
          }
 
256
          my $leak_reports_expected= undef;
 
257
          while ( <ERR> )
 
258
          {
 
259
            # There is a test case that purposely provokes a
 
260
            # SAFEMALLOC leak report, even though there is no actual
 
261
            # leak. We need to detect this, and ignore the warning in
 
262
            # that case.
 
263
            if (/Begin safemalloc memory dump:/) {
 
264
              $leak_reports_expected= 1;
 
265
            } elsif (/End safemalloc memory dump./) {
 
266
              $leak_reports_expected= undef;
 
267
            }
 
268
 
 
269
            # Skip some non fatal warnings from the log files
 
270
            if (
 
271
                /\"SELECT UNIX_TIMESTAMP\(\)\" failed on master/ or
 
272
                /Aborted connection/ or
 
273
                /Client requested master to start replication from impossible position/ or
 
274
                /Could not find first log file name in binary log/ or
 
275
                /Enabling keys got errno/ or
 
276
                /Error reading master configuration/ or
 
277
                /Error reading packet/ or
 
278
                /Event Scheduler/ or
 
279
                /Failed to open log/ or
 
280
                /Failed to open the existing master info file/ or
 
281
                /Forcing shutdown of [0-9]* plugins/ or
 
282
                /Can't open shared library .*\bha_example\b/ or
 
283
                /Couldn't load plugin .*\bha_example\b/ or
 
284
 
 
285
                # Due to timing issues, it might be that this warning
 
286
                # is printed when the server shuts down and the
 
287
                # computer is loaded.
 
288
                /Forcing close of thread \d+  user: '.*?'/ or
 
289
 
 
290
                /Got error [0-9]* when reading table/ or
 
291
                /Incorrect definition of table/ or
 
292
                /Incorrect information in file/ or
 
293
                /InnoDB: Warning: we did not need to do crash recovery/ or
 
294
                /Invalid \(old\?\) table or database name/ or
 
295
                /Lock wait timeout exceeded/ or
 
296
                /Log entry on master is longer than max_allowed_packet/ or
 
297
                /unknown option '--loose-/ or
 
298
                /unknown variable 'loose-/ or
 
299
                /You have forced lower_case_table_names to 0 through a command-line option/ or
 
300
                /Setting lower_case_table_names=2/ or
 
301
                /NDB Binlog:/ or
 
302
                /NDB: failed to setup table/ or
 
303
                /NDB: only row based binary logging/ or
 
304
                /Neither --relay-log nor --relay-log-index were used/ or
 
305
                /Query partially completed/ or
 
306
                /Slave I.O thread aborted while waiting for relay log/ or
 
307
                /Slave SQL thread is stopped because UNTIL condition/ or
 
308
                /Slave SQL thread retried transaction/ or
 
309
                /Slave \(additional info\)/ or
 
310
                /Slave: .*Duplicate column name/ or
 
311
                /Slave: .*master may suffer from/ or
 
312
                /Slave: According to the master's version/ or
 
313
                /Slave: Column [0-9]* type mismatch/ or
 
314
                /Slave: Error .* doesn't exist/ or
 
315
                /Slave: Deadlock found/ or
 
316
                /Slave: Error .*Unknown table/ or
 
317
                /Slave: Error in Write_rows event: / or
 
318
                /Slave: Field .* of table .* has no default value/ or
 
319
                /Slave: Field .* doesn't have a default value/ or
 
320
                /Slave: Query caused different errors on master and slave/ or
 
321
                /Slave: Table .* doesn't exist/ or
 
322
                /Slave: Table width mismatch/ or
 
323
                /Slave: The incident LOST_EVENTS occured on the master/ or
 
324
                /Slave: Unknown error.* 1105/ or
 
325
                /Slave: Can't drop database.* database doesn't exist/ or
 
326
                /Slave SQL:.*(?:Error_code: \d+|Query:.*)/ or
 
327
                /Sort aborted/ or
 
328
                /Time-out in NDB/ or
 
329
                /One can only use the --user.*root/ or
 
330
                /Table:.* on (delete|rename)/ or
 
331
                /You have an error in your SQL syntax/ or
 
332
                /deprecated/ or
 
333
                /description of time zone/ or
 
334
                /equal MySQL server ids/ or
 
335
                /error .*connecting to master/ or
 
336
                /error reading log entry/ or
 
337
                /lower_case_table_names is set/ or
 
338
                /skip-name-resolve mode/ or
 
339
                /slave SQL thread aborted/ or
 
340
                /Slave: .*Duplicate entry/ or
 
341
                # Special case for Bug #26402 in show_check.test
 
342
                # Question marks are not valid file name parts
 
343
                # on Windows platforms. Ignore this error message. 
 
344
                /\QCan't find file: '.\test\????????.frm'\E/ or
 
345
                # Special case, made as specific as possible, for:
 
346
                # Bug #28436: Incorrect position in SHOW BINLOG EVENTS causes
 
347
                #             server coredump
 
348
                /\QError in Log_event::read_log_event(): 'Sanity check failed', data_len: 258, event_type: 49\E/ or
 
349
                /Statement is not safe to log in statement format/ or
 
350
 
 
351
                # test case for Bug#bug29807 copies a stray frm into database
 
352
                /InnoDB: Error: table `test`.`bug29807` does not exist in the InnoDB internal/ or
 
353
                /Cannot find or open table test\/bug29807 from/ or
 
354
 
 
355
                # innodb foreign key tests that fail in ALTER or RENAME produce this
 
356
                /InnoDB: Error: in ALTER TABLE `test`.`t[12]`/ or
 
357
                /InnoDB: Error: in RENAME TABLE table `test`.`t1`/ or
 
358
                /InnoDB: Error: table `test`.`t[12]` does not exist in the InnoDB internal/ or
 
359
 
 
360
                # Test case for Bug#14233 produces the following warnings:
 
361
                /Stored routine 'test'.'bug14233_1': invalid value in column mysql.proc/ or
 
362
                /Stored routine 'test'.'bug14233_2': invalid value in column mysql.proc/ or
 
363
                /Stored routine 'test'.'bug14233_3': invalid value in column mysql.proc/ or
 
364
 
 
365
                # BUG#29839 - lowercase_table3.test: Cannot find table test/T1
 
366
                #             from the internal data dictiona
 
367
                /Cannot find table test\/BUG29839 from the internal data dictionary/ or
 
368
                # BUG#32080 - Excessive warnings on Solaris: setrlimit could not
 
369
                #             change the size of core files
 
370
                /setrlimit could not change the size of core files to 'infinity'/ or
 
371
 
 
372
                # rpl_extrColmaster_*.test, the slave thread produces warnings
 
373
                # when it get updates to a table that has more columns on the
 
374
                # master
 
375
                /Slave: Unknown column 'c7' in 't15' Error_code: 1054/ or
 
376
                /Slave: Can't DROP 'c7'.* 1091/ or
 
377
                /Slave: Key column 'c6'.* 1072/ or
 
378
 
 
379
                # rpl_idempotency.test produces warnings for the slave.
 
380
                ($testname eq 'rpl.rpl_idempotency' and
 
381
                 (/Slave: Can\'t find record in \'t1\' Error_code: 1032/ or
 
382
                  /Slave: Cannot add or update a child row: a foreign key constraint fails .* Error_code: 1452/
 
383
                 )) or
 
384
 
 
385
                # These tests does "kill" on queries, causing sporadic errors when writing to logs
 
386
                (($testname eq 'rpl.rpl_skip_error' or
 
387
                  $testname eq 'rpl.rpl_err_ignoredtable' or
 
388
                  $testname eq 'binlog.binlog_killed_simulate' or
 
389
                  $testname eq 'binlog.binlog_killed') and
 
390
                 (/Failed to write to mysql\.\w+_log/
 
391
                 )) or
 
392
 
 
393
                # rpl_bug33931 has deliberate failures
 
394
                ($testname eq 'rpl.rpl_bug33931' and
 
395
                 (/Failed during slave.*thread initialization/
 
396
                  )) or
 
397
 
 
398
                # rpl_temporary has an error on slave that can be ignored
 
399
                ($testname eq 'rpl.rpl_temporary' and
 
400
                 (/Slave: Can\'t find record in \'user\' Error_code: 1032/
 
401
                 )) or
 
402
 
 
403
                # Test case for Bug#31590 produces the following error:
 
404
                /Out of sort memory; increase server sort buffer size/ or
 
405
 
 
406
                # Bug#35161, test of auto repair --myisam-recover
 
407
                /able.*_will_crash/ or
 
408
 
 
409
                # lowercase_table3 using case sensitive option on
 
410
                # case insensitive filesystem (InnoDB error).
 
411
                /Cannot find or open table test\/BUG29839 from/ or
 
412
 
 
413
                # When trying to set lower_case_table_names = 2
 
414
                # on a case sensitive file system. Bug#37402.
 
415
                /lower_case_table_names was set to 2, even though your the file system '.*' is case sensitive.  Now setting lower_case_table_names to 0 to avoid future problems./
 
416
                )
 
417
            {
 
418
              next;                       # Skip these lines
 
419
            }
 
420
            if ( /CURRENT_TEST: (.*)/ )
 
421
            {
 
422
              $testname= $1;
 
423
            }
 
424
            if ( /$pattern/ )
 
425
            {
 
426
              if ($leak_reports_expected) {
 
427
                next;
 
428
              }
 
429
              $found_problems= 1;
 
430
              print WARN basename($errlog) . ": $testname: $_";
 
431
            }
 
432
          }
 
433
        }
 
434
      }
 
435
 
 
436
      if ( $::opt_check_testcases )
 
437
      {
 
438
        # Look for warnings produced by mysqltest in testname.warnings
 
439
        foreach my $test_warning_file
 
440
          ( glob("$::glob_mysql_test_dir/r/*.warnings") )
 
441
        {
 
442
          $found_problems= 1;
 
443
          print WARN "Check myqltest warnings in $test_warning_file\n";
 
444
        }
 
445
      }
 
446
 
 
447
      if ( $found_problems )
 
448
      {
 
449
        mtr_warning("Got errors/warnings while running tests, please examine",
 
450
                    "\"$warnlog\" for details.");
 
451
      }
 
452
    }
 
453
  }
 
454
 
 
455
  print "\n";
 
456
 
 
457
  # Print a list of testcases that failed
 
458
  if ( $tot_failed != 0 )
 
459
  {
 
460
    my $test_mode= join(" ", @::glob_test_mode) || "default";
 
461
    print "mysql-test-run in $test_mode mode: *** Failing the test(s):";
 
462
 
 
463
    foreach my $tinfo (@$tests)
 
464
    {
 
465
      if ( $tinfo->{'result'} eq 'MTR_RES_FAILED' )
 
466
      {
 
467
        print " $tinfo->{'name'}";
 
468
      }
 
469
    }
 
470
    print "\n";
 
471
 
 
472
  }
 
473
 
 
474
  # Print a list of check_testcases that failed(if any)
 
475
  if ( $::opt_check_testcases )
 
476
  {
 
477
    my @check_testcases= ();
 
478
 
 
479
    foreach my $tinfo (@$tests)
 
480
    {
 
481
      if ( defined $tinfo->{'check_testcase_failed'} )
 
482
      {
 
483
        push(@check_testcases, $tinfo->{'name'});
 
484
      }
 
485
    }
 
486
 
 
487
    if ( @check_testcases )
 
488
    {
 
489
      print "Check of testcase failed for: ";
 
490
      print join(" ", @check_testcases);
 
491
      print "\n\n";
 
492
    }
 
493
  }
 
494
 
 
495
  if ( $tot_failed != 0 || $found_problems)
 
496
  {
 
497
    mtr_error("there were failing test cases");
 
498
  }
 
499
}
 
500
 
 
501
##############################################################################
 
502
#
 
503
#  Text formatting
 
504
#
 
505
##############################################################################
 
506
 
 
507
sub mtr_print_line () {
 
508
  print '-' x 55, "\n";
 
509
}
 
510
 
 
511
sub mtr_print_thick_line () {
 
512
  print '=' x 55, "\n";
 
513
}
 
514
 
 
515
sub mtr_print_header () {
 
516
  print "\n";
 
517
  if ( $::opt_timer )
 
518
  {
 
519
    print "TEST                           RESULT         TIME (ms)\n";
 
520
  }
 
521
  else
 
522
  {
 
523
    print "TEST                           RESULT\n";
 
524
  }
 
525
  mtr_print_line();
 
526
  print "\n";
 
527
}
 
528
 
 
529
 
 
530
##############################################################################
 
531
#
 
532
#  Log and reporting functions
 
533
#
 
534
##############################################################################
 
535
 
 
536
use IO::File;
 
537
 
 
538
my $log_file_ref= undef;
 
539
 
 
540
sub mtr_log_init ($) {
 
541
  my ($filename)= @_;
 
542
 
 
543
  mtr_error("Log is already open") if defined $log_file_ref;
 
544
 
 
545
  $log_file_ref= IO::File->new($filename, "a") or
 
546
    mtr_warning("Could not create logfile $filename: $!");
 
547
}
 
548
 
 
549
sub _mtr_log (@) {
 
550
  print $log_file_ref join(" ", @_),"\n"
 
551
    if defined $log_file_ref;
 
552
}
 
553
 
 
554
sub mtr_report (@) {
 
555
  # Print message to screen and log
 
556
  _mtr_log(@_);
 
557
  print join(" ", @_),"\n";
 
558
}
 
559
 
 
560
sub mtr_warning (@) {
 
561
  # Print message to screen and log
 
562
  _mtr_log("WARNING: ", @_);
 
563
  print STDERR "mysql-test-run: WARNING: ",join(" ", @_),"\n";
 
564
}
 
565
 
 
566
sub mtr_error (@) {
 
567
  # Print message to screen and log
 
568
  _mtr_log("ERROR: ", @_);
 
569
  print STDERR "mysql-test-run: *** ERROR: ",join(" ", @_),"\n";
 
570
  mtr_exit(1);
 
571
}
 
572
 
 
573
sub mtr_child_error (@) {
 
574
  # Print message to screen and log
 
575
  _mtr_log("ERROR(child): ", @_);
 
576
  print STDERR "mysql-test-run: *** ERROR(child): ",join(" ", @_),"\n";
 
577
  exit(1);
 
578
}
 
579
 
 
580
sub mtr_debug (@) {
 
581
  # Only print if --script-debug is used
 
582
  if ( $::opt_script_debug )
 
583
  {
 
584
    _mtr_log("###: ", @_);
 
585
    print STDERR "####: ",join(" ", @_),"\n";
 
586
  }
 
587
}
 
588
 
 
589
sub mtr_verbose (@) {
 
590
  # Always print to log, print to screen only when --verbose is used
 
591
  _mtr_log("> ",@_);
 
592
  if ( $::opt_verbose )
 
593
  {
 
594
    print STDERR "> ",join(" ", @_),"\n";
 
595
  }
 
596
}
 
597
 
 
598
1;