Switch to qw<>

diff --git a/lib/B/RecDeparse.pm b/lib/B/RecDeparse.pm
index c5c5fa9be3fa40732248c2fe3b6a65bb220a1a48..213b640ba6570858c34a5ffaa91983595263b06f 100644 (file)
--- a/lib/B/RecDeparse.pm
+++ b/lib/B/RecDeparse.pm
@@ -9,7 +9,7 @@ use B ();
 
 use Config;
 
 
 use Config;
 

-use base qw/B::Deparse/;
+use base qw<B::Deparse>;

 
 =head1 NAME
 
 
 =head1 NAME
 


@@ -187,7 +187,7 @@ sub pp_gv {
   $body = $self->SUPER::pp_gv(@_);
  } else {
   $body = do {
   $body = $self->SUPER::pp_gv(@_);
  } else {
   $body = do {

-   local @{$self}{qw/brd_sub brd_cur/} = (0, $self->{brd_cur} + 1);
+   local @{$self}{qw<brd_sub brd_cur>} = (0, $self->{brd_cur} + 1);

    local $seen->{$name} = 1;
    'sub ' . $self->indent($self->deparse_sub($gv->CV));
   };
    local $seen->{$name} = 1;
    'sub ' . $self->indent($self->deparse_sub($gv->CV));
   };

diff --git a/samples/brd.pl b/samples/brd.pl
index bd0f7e32eacf3f7897e4ceb3dc2f56238a1f0820..f49a8eb0e0951e698de6b728b01356a2d75a5b23 100755 (executable)
--- a/samples/brd.pl
+++ b/samples/brd.pl
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 

-use lib qw{blib/lib};
+use lib qw<blib/lib>;

 use B::RecDeparse;
 
 my $deparser = B::RecDeparse->new(deparse => [ '-sCi0v1' ], level => 1);
 use B::RecDeparse;
 
 my $deparser = B::RecDeparse->new(deparse => [ '-sCi0v1' ], level => 1);

diff --git a/t/02-can.t b/t/02-can.t
index b2ba12a2e3dd929a53837f9e89574aab7a58ab63..8edd47d103e60e0db3e34222e9e4b9ff5f9e4a6f 100644 (file)
--- a/t/02-can.t
+++ b/t/02-can.t
@@ -7,6 +7,6 @@ use Test::More tests => 6;
 
 require B::RecDeparse;
 
 
 require B::RecDeparse;
 

-for (qw/new init pp_gv pp_entersub pp_const coderef2text/) {
+for (qw<new init pp_gv pp_entersub pp_const coderef2text>) {

  ok(B::RecDeparse->can($_), 'BRD can ' . $_);
 }
  ok(B::RecDeparse->can($_), 'BRD can ' . $_);
 }

diff --git a/t/10-obj.t b/t/10-obj.t
index 1a2695ec00493c728c83110903269e7554f3fc58..49f3dc7e5e11d5518205ceb6bad7d9f895ec9688 100644 (file)
--- a/t/10-obj.t
+++ b/t/10-obj.t
@@ -22,5 +22,5 @@ ok(defined $brd3, 'BRD::new called as a function works ');
 is(ref $brd3, 'B::RecDeparse', 'BRD::new called as a functions returns a B::RecDeparse object');
 ok($brd3->isa('B::Deparse'), 'BRD is a BD');
 
 is(ref $brd3, 'B::RecDeparse', 'BRD::new called as a functions returns a B::RecDeparse object');
 ok($brd3->isa('B::Deparse'), 'BRD is a BD');
 

-eval { $brd2 = new B::RecDeparse qw/a b c/ };
+eval { $brd2 = new B::RecDeparse qw<a b c> };

 like($@, qr/Optional\s+arguments/, 'BRD::new gets parameters as key => value pairs');
 like($@, qr/Optional\s+arguments/, 'BRD::new gets parameters as key => value pairs');

diff --git a/t/12-level.t b/t/12-level.t
index 9ac53b4adef862cd2051e3eb5a4c3de2f10a70d3..4d4a5a7872b57ccde567bdb234c2d4441f40f7c1 100644 (file)
--- a/t/12-level.t
+++ b/t/12-level.t
@@ -30,19 +30,19 @@ sub which {
 my $br_args = '-sCi0v1';
 
 my $brd = B::RecDeparse->new(deparse => [ $br_args ], level => -1);
 my $br_args = '-sCi0v1';
 
 my $brd = B::RecDeparse->new(deparse => [ $br_args ], level => -1);

-which $brd, [ ], [ qw/add mul fma/ ], -1;
+which $brd, [ ], [ qw<add mul fma> ], -1;

 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 0);
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 0);

-which $brd, [ qw/fma/ ], [ qw/add mul/ ], 0;
+which $brd, [ qw<fma> ], [ qw<add mul> ], 0;

 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 1);
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 1);

-which $brd, [ qw/add mul/ ], [ qw/fma/ ], 1;
+which $brd, [ qw<add mul> ], [ qw<fma> ], 1;

 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 2);
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 2);

-which $brd, [ ], [ qw/add mul fma/ ], 2;
+which $brd, [ ], [ qw<add mul fma> ], 2;

 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 3);
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 3);

-which $brd, [ ], [ qw/add mul fma/ ], 2;
+which $brd, [ ], [ qw<add mul fma> ], 2;

 
 sub fakegv { return @_ }
 eval { $brd->coderef2text(sub { return fakegv() }) };
 
 sub fakegv { return @_ }
 eval { $brd->coderef2text(sub { return fakegv() }) };

diff --git a/t/13-prototypes.t b/t/13-prototypes.t
index f33d81d54a9802da8b2f7eb168ad90646fb4a4e2..970c8a5daa936d55187b7156c0be047f22295783 100644 (file)
--- a/t/13-prototypes.t
+++ b/t/13-prototypes.t
@@ -30,16 +30,16 @@ sub which {
 my $br_args = '-sCi0v1';
 
 my $brd = B::RecDeparse->new(deparse => [ $br_args ], level => -1);
 my $br_args = '-sCi0v1';
 
 my $brd = B::RecDeparse->new(deparse => [ $br_args ], level => -1);

-which $brd, [ ], [ qw/add mul fma/ ], -1;
+which $brd, [ ], [ qw<add mul fma> ], -1;

 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 0);
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 0);

-which $brd, [ qw/fma/ ], [ qw/add mul/ ], 0;
+which $brd, [ qw<fma> ], [ qw<add mul> ], 0;

 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 1);
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 1);

-which $brd, [ qw/add mul/ ], [ qw/fma/ ], 1;
+which $brd, [ qw<add mul> ], [ qw<fma> ], 1;

 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 2);
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 2);

-which $brd, [ ], [ qw/add mul fma/ ], 2;
+which $brd, [ ], [ qw<add mul fma> ], 2;

 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 3);
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 3);

-which $brd, [ ], [ qw/add mul fma/ ], 2;
+which $brd, [ ], [ qw<add mul fma> ], 2;

diff --git a/t/14-refs.t b/t/14-refs.t
index 21c4607fb0ac0c898f5c43ca75db9671fca1e0b4..33dc86a903f78dcfecbbb4700cd20961bf2c2473 100644 (file)
--- a/t/14-refs.t
+++ b/t/14-refs.t
@@ -37,17 +37,17 @@ sub which {
 my $br_args = '-sCi0v1';
 
 my $brd = B::RecDeparse->new(deparse => $br_args, level => -1);
 my $br_args = '-sCi0v1';
 
 my $brd = B::RecDeparse->new(deparse => $br_args, level => -1);

-which $brd, \&foo, [ ], [ qw/add dummy/ ], [ qw/add call/ ], [ ], -1;
-which $brd, \&bar, [ ], [ qw/add call/ ], [ qw/add call/ ], [ ], -1;
+which $brd, \&foo, [ ], [ qw<add dummy> ], [ qw<add call> ], [ ], -1;
+which $brd, \&bar, [ ], [ qw<add call> ], [ qw<add call> ], [ ], -1;

 
 $brd = B::RecDeparse->new(deparse => $br_args, level => 0);
 
 $brd = B::RecDeparse->new(deparse => $br_args, level => 0);

-which $brd, \&foo, [ qw/call/ ], [ qw/add/ ], [ qw/add/ ], [ qw/dummy/ ], 0;
-which $brd, \&bar, [ ], [ qw/add call/ ], [ qw/add/ ], [ qw/dummy/ ], 0;
+which $brd, \&foo, [ qw<call> ], [ qw<add> ], [ qw<add> ], [ qw<dummy> ], 0;
+which $brd, \&bar, [ ], [ qw<add call> ], [ qw<add> ], [ qw<dummy> ], 0;

 
 $brd = B::RecDeparse->new(deparse => $br_args, level => 1);
 
 $brd = B::RecDeparse->new(deparse => $br_args, level => 1);

-which $brd, \&foo, [ ], [ qw/add dummy/ ], [ qw/add call/ ], [ ], 1;
-which $brd, \&bar, [ ], [ qw/add call/ ], [ qw/add call/ ], [ ], 1;
+which $brd, \&foo, [ ], [ qw<add dummy> ], [ qw<add call> ], [ ], 1;
+which $brd, \&bar, [ ], [ qw<add call> ], [ qw<add call> ], [ ], 1;

 
 $brd = B::RecDeparse->new(deparse => $br_args, level => 2);
 
 $brd = B::RecDeparse->new(deparse => $br_args, level => 2);

-which $brd, \&foo, [ ], [ qw/add dummy/ ], [ qw/add call/ ], [ ], 2;
-which $brd, \&bar, [ ], [ qw/add call/ ], [ qw/add call/ ], [ ], 2;
+which $brd, \&foo, [ ], [ qw<add dummy> ], [ qw<add call> ], [ ], 2;
+which $brd, \&bar, [ ], [ qw<add call> ], [ qw<add call> ], [ ], 2;

diff --git a/t/15-pkg.t b/t/15-pkg.t
index ac1c241ab1df211634aaa81c30bebbcb44036c94..3195d65ce96a5c5f6dc22cde4cfb13bfd4c454ef 100644 (file)
--- a/t/15-pkg.t
+++ b/t/15-pkg.t
@@ -30,16 +30,16 @@ sub which {
 my $br_args = '-sCi0v1';
 
 my $brd = B::RecDeparse->new(deparse => [ $br_args ], level => -1);
 my $br_args = '-sCi0v1';
 
 my $brd = B::RecDeparse->new(deparse => [ $br_args ], level => -1);

-which $brd, [ ], [ qw/Hlagh::add mul Dongs::fma/ ], -1;
+which $brd, [ ], [ qw<Hlagh::add mul Dongs::fma> ], -1;

 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 0);
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 0);

-which $brd, [ qw/fma/ ], [ qw/Hlagh::add mul/ ], 0;
+which $brd, [ qw<fma> ], [ qw<Hlagh::add mul> ], 0;

 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 1);
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 1);

-which $brd, [ qw/add mul/ ], [ qw/Dongs::fma/ ], 1;
+which $brd, [ qw<add mul> ], [ qw<Dongs::fma> ], 1;

 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 2);
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 2);

-which $brd, [ ], [ qw/Hlagh::add mul Dongs::fma/ ], 2;
+which $brd, [ ], [ qw<Hlagh::add mul Dongs::fma> ], 2;

 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 3);
 
 $brd = B::RecDeparse->new(deparse => [ $br_args ], level => 3);

-which $brd, [ ], [ qw/Hlagh::add mul Dongs::fma/ ], 2;
+which $brd, [ ], [ qw<Hlagh::add mul Dongs::fma> ], 2;