X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=lib%2FSub%2FNary.pm;fp=lib%2FSub%2FNary.pm;h=de42e73576a67eba931eca0956f58f4a9ccc08d5;hp=ec8ca4d02c9a26389c71e8706e441850b11b6237;hb=790ba71f0305951a6d7bb04ca02a1dad7563f439;hpb=37cafd97ccbd41d9cde225a53f6a058ac23ce7d5

diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm
index ec8ca4d..de42e73 100644
--- a/lib/Sub/Nary.pm
+++ b/lib/Sub/Nary.pm
@@ -5,9 +5,9 @@ use 5.008_001;
 use strict;
 use warnings;
 
-use Carp qw/croak/;
+use Carp qw<croak>;
 
-use B qw/class ppname svref_2object OPf_KIDS/;
+use B qw<class ppname svref_2object OPf_KIDS>;
 
 =head1 NAME
 
@@ -211,12 +211,12 @@ sub power {
 my %ops;
 
 $ops{$_} = 1      for scalops;
-$ops{$_} = 0      for qw/stub nextstate pushmark iter unstack/;
-$ops{$_} = 1      for qw/padsv/;
-$ops{$_} = 'list' for qw/padav/;
-$ops{$_} = 'list' for qw/padhv rv2hv/;
-$ops{$_} = 'list' for qw/padany/;
-$ops{$_} = 'list' for qw/match entereval readline/;
+$ops{$_} = 0      for qw<stub nextstate pushmark iter unstack>;
+$ops{$_} = 1      for qw<padsv>;
+$ops{$_} = 'list' for qw<padav>;
+$ops{$_} = 'list' for qw<padhv rv2hv>;
+$ops{$_} = 'list' for qw<padany>;
+$ops{$_} = 'list' for qw<match entereval readline>;
 
 $ops{each}      = { 0 => 0.5, 2 => 0.5 };
 $ops{stat}      = { 0 => 0.5, 13 => 0.5 };
@@ -225,12 +225,12 @@ $ops{caller}    = sub { my @a = caller 0; scalar @a }->();
 $ops{localtime} = do { my @a = localtime; scalar @a };
 $ops{gmtime}    = do { my @a = gmtime; scalar @a };
 
-$ops{$_} = { 0 => 0.5, 10 => 0.5 } for map "gpw$_", qw/nam uid ent/;
-$ops{$_} = { 0 => 0.5, 4 => 0.5 }  for map "ggr$_", qw/nam gid ent/;
-$ops{$_} = 'list'                  for qw/ghbyname ghbyaddr ghostent/;
-$ops{$_} = { 0 => 0.5, 4 => 0.5 }  for qw/gnbyname gnbyaddr gnetent/;
-$ops{$_} = { 0 => 0.5, 3 => 0.5 }  for qw/gpbyname gpbynumber gprotoent/;
-$ops{$_} = { 0 => 0.5, 4 => 0.5 }  for qw/gsbyname gsbyport gservent/;
+$ops{$_} = { 0 => 0.5, 10 => 0.5 } for map "gpw$_", qw<nam uid ent>;
+$ops{$_} = { 0 => 0.5, 4 => 0.5 }  for map "ggr$_", qw<nam gid ent>;
+$ops{$_} = 'list'                  for qw<ghbyname ghbyaddr ghostent>;
+$ops{$_} = { 0 => 0.5, 4 => 0.5 }  for qw<gnbyname gnbyaddr gnetent>;
+$ops{$_} = { 0 => 0.5, 3 => 0.5 }  for qw<gpbyname gpbynumber gprotoent>;
+$ops{$_} = { 0 => 0.5, 4 => 0.5 }  for qw<gsbyname gsbyport gservent>;
 
 sub enter {
  my ($self, $cv) = @_;
@@ -386,8 +386,8 @@ sub pp_entersub {
     $next = $next->sibling;
    }
    $n  = name($op)
-  } while ($op->flags & OPf_KIDS and { map { $_ => 1 } qw/null leave/ }->{$n});
-  return 'list', undef unless { map { $_ => 1 } qw/gv refgen/ }->{$n};
+  } while ($op->flags & OPf_KIDS and { map { $_ => 1 } qw<null leave> }->{$n});
+  return 'list', undef unless { map { $_ => 1 } qw<gv refgen> }->{$n};
   local $self->{sub} = 1;
   my ($rc, $lc) = $self->inspect($op);
   return $r, scale $c, $lc;