percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-19 08:56:34 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge clean-up-pqd-2.2.

Browse Source
This commit is contained in:
Daniel Nichter
2013-03-09 10:24:56 -07:00
parent 61983050de f7af780c59
commit 828ff38078
35 changed files with 1533 additions and 1652 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/PerconaTest.pm
View File

@@ -450,6 +450,7 @@ sub test_protocol_parser {
keys %args;
my $file = "$trunk/$args{file}";
my ($base_file_name) = $args{file} =~ m/([^\/]+)$/;
my @e;
eval {
open my $fh, "<", $file or die "Cannot open $file: $OS_ERROR";
@@ -465,11 +466,10 @@ sub test_protocol_parser {
close $fh;
};
my ($base_file_name) = $args{file} =~ m/([^\/]+)$/;
is(
$EVAL_ERROR,
'',
"$base_file_name: no errors"
"$base_file_name: no perl errors"
);
if ( defined $args{result} ) {