diff options
Diffstat (limited to 'cpan/Test-Simple/t/cmp_ok.t')
-rw-r--r-- | cpan/Test-Simple/t/cmp_ok.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cpan/Test-Simple/t/cmp_ok.t b/cpan/Test-Simple/t/cmp_ok.t index c9b9f1bf65..07ed1a9f0b 100644 --- a/cpan/Test-Simple/t/cmp_ok.t +++ b/cpan/Test-Simple/t/cmp_ok.t @@ -15,7 +15,7 @@ $TB->level(0); sub try_cmp_ok { my($left, $cmp, $right, $error) = @_; - + my %expect; if( $error ) { $expect{ok} = 0; @@ -33,7 +33,7 @@ sub try_cmp_ok { eval { $ok = cmp_ok($left, $cmp, $right, "cmp_ok"); }; $TB->is_num(!!$ok, !!$expect{ok}, " right return"); - + my $diag = $err->read; if ($@) { |