From: Vincent Pit Date: Mon, 24 Aug 2009 22:36:05 +0000 (+0200) Subject: Also use the report_class in Session X-Git-Tag: v1.10~26 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=01942f85f66b0e5468e198fd0101c2e9686fd118;p=perl%2Fmodules%2FTest-Valgrind.git Also use the report_class in Session --- diff --git a/lib/Test/Valgrind/Session.pm b/lib/Test/Valgrind/Session.pm index 705e088..3583c3d 100644 --- a/lib/Test/Valgrind/Session.pm +++ b/lib/Test/Valgrind/Session.pm @@ -34,8 +34,6 @@ BEGIN { use base qw/Test::Valgrind::Carp/; -use Test::Valgrind::Report; - =head1 METHODS =head2 C<< new search_dirs => \@search_dirs, valgrind => [ $valgrind | \@valgrind ], min_version => $min_version, no_def_supp => $no_def_supp, extra_supps => \@extra_supps >> @@ -201,7 +199,7 @@ sub _run { $self->command($cmd); - $self->report(Test::Valgrind::Report->new_diag( + $self->report($self->report_class->new_diag( 'Using valgrind ' . $self->version . ' located at ' . $self->valgrind )); @@ -213,7 +211,7 @@ sub _run { } elsif (not $self->no_def_supp) { my $def_supp = $self->def_supp_file; if (defined $def_supp and not -e $def_supp) { - $self->report(Test::Valgrind::Report->new_diag( + $self->report($self->report_class->new_diag( "Generating suppressions..." )); require Test::Valgrind::Suppressions; @@ -223,7 +221,7 @@ sub _run { target => $def_supp, ); $self->_croak('Couldn\'t generate suppressions') unless -e $def_supp; - $self->report(Test::Valgrind::Report->new_diag( + $self->report($self->report_class->new_diag( "Suppressions for this perl stored in $def_supp" )); } @@ -254,7 +252,7 @@ sub _run { $self->command->args($self), ); -# $self->report(Test::Valgrind::Report->new_diag("@args")); +# $self->report($self->report_class->new_diag("@args")); exec { $args[0] } @args or $self->_croak("exec @args: $!"); }