Switch to qw<>

[perl/modules/Test-Valgrind.git] / lib / Test / Valgrind / Action / Test.pm

diff --git a/lib/Test/Valgrind/Action/Test.pm b/lib/Test/Valgrind/Action/Test.pm
index 70991deffdfe1deaaf5cacb93ede6d6b41b0bbf5..36ac416064b86f8be93425bd4ab51ba76d53efe3 100644 (file)
--- a/lib/Test/Valgrind/Action/Test.pm
+++ b/lib/Test/Valgrind/Action/Test.pm
@@ -23,7 +23,7 @@ This action uses C<Test::Builder> to plan and pass or fail tests according to th
 
 use Test::Builder;
 
-use base qw/Test::Valgrind::Action Test::Valgrind::Action::Captor/;
+use base qw<Test::Valgrind::Action Test::Valgrind::Action::Captor>;
 
 =head1 METHODS
 
@@ -158,7 +158,7 @@ sub finish {
   seek $fh, $self->{capture_pos}, 0;
   $tb->diag($_) while <$fh>;
   close $fh or $self->_croak('close(capture[' . fileno($fh) . "]): $!");
-  delete @{$self}{qw/capture capture_pos/};
+  delete @{$self}{qw<capture capture_pos>};
  }
 
  my $failed = 0;