Switch to qw<>

[perl/modules/Test-Valgrind.git] / lib / Test / Valgrind / Parser / XML / Twig.pm

diff --git a/lib/Test/Valgrind/Parser/XML/Twig.pm b/lib/Test/Valgrind/Parser/XML/Twig.pm
index e919008fec2df9b9a497483b86747a153d490d0f..6e294824fdf9330766a87b9d28417c458cb73535 100644 (file)
--- a/lib/Test/Valgrind/Parser/XML/Twig.pm
+++ b/lib/Test/Valgrind/Parser/XML/Twig.pm
@@ -24,7 +24,7 @@ It is able to parse the XML output from C<valgrind> up to protocol version 4 and
 
 use Scalar::Util ();
 
-use base qw/Test::Valgrind::Parser::XML Test::Valgrind::Carp XML::Twig/;
+use base qw<Test::Valgrind::Parser::XML Test::Valgrind::Carp XML::Twig>;
 
 BEGIN { XML::Twig->add_options('Stash'); }
 
@@ -62,7 +62,7 @@ It is reset before and after the parsing phase, so it's effectively only availab
 =cut
 
 eval "sub $_ { \@_ <= 1 ? \$_[0]->{$_} : (\$_[0]->{$_} = \$_[1]) }"
-                                              for qw/_session protocol_version/;
+                                              for qw<_session protocol_version>;
 
 # We must store the session in ourselves because it's only possible to pass
 # arguments to XML::Twig objects by a global stash.
@@ -125,7 +125,7 @@ sub handle_error {
  $data->{stack} = [ map $_->listify_frame,
                                        $node->kid('stack')->children('frame') ];
 
- for (qw/leakedbytes leakedblocks/) {
+ for (qw<leakedbytes leakedblocks>) {
   my $kid = ($xwhat || $node)->first_child($_);
   next unless $kid;
   $data->{$_} = int $kid->text;
@@ -194,7 +194,7 @@ our $VERSION = '1.12';
 
 BEGIN { require XML::Twig; }
 
-use base qw/XML::Twig::Elt Test::Valgrind::Carp/;
+use base qw<XML::Twig::Elt Test::Valgrind::Carp>;
 
 sub kid {
  my ($self, $what) = @_;
@@ -212,7 +212,7 @@ sub listify_frame {
   map {
    my $x = $frame->first_child($_);
    $x ? $x->text : undef
-  } qw/ip obj fn dir file line/
+  } qw<ip obj fn dir file line>
  ];
 }