summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm')
-rwxr-xr-xMaster/tlpkg/tlperl/lib/Test/Builder/Formatter.pm8
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm b/Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm
index 3c29ffdaf21..ab405cab98a 100755
--- a/Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm
+++ b/Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm
@@ -2,7 +2,7 @@ package Test::Builder::Formatter;
use strict;
use warnings;
-our $VERSION = '1.302162';
+our $VERSION = '1.302175';
BEGIN { require Test2::Formatter::TAP; our @ISA = qw(Test2::Formatter::TAP) }
@@ -33,7 +33,8 @@ sub debug_tap {
my ($self, $f, $num) = @_;
return if $self->{+NO_DIAG};
my @out = $self->SUPER::debug_tap($f, $num);
- $self->redirect(\@out) if @out && $f->{about}->{package} eq 'Test::Builder::TodoDiag';
+ $self->redirect(\@out) if @out && ref $f->{about} && defined $f->{about}->{package}
+ && $f->{about}->{package} eq 'Test::Builder::TodoDiag';
return @out;
}
@@ -41,7 +42,8 @@ sub info_tap {
my ($self, $f) = @_;
return if $self->{+NO_DIAG};
my @out = $self->SUPER::info_tap($f);
- $self->redirect(\@out) if @out && $f->{about}->{package} eq 'Test::Builder::TodoDiag';
+ $self->redirect(\@out) if @out && ref $f->{about} && defined $f->{about}->{package}
+ && $f->{about}->{package} eq 'Test::Builder::TodoDiag';
return @out;
}