diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/Test/Builder/Formatter.pm | 8 |
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; } |