X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F02-pp.t;h=35e3d85c595bddfa2c84433c451edab46856ef6b;hb=7fd1958a0919e94beee7223dda577fc9abd3547a;hp=dea9f2b4977d1e148ab636dcad684e189fe377ad;hpb=f7b302bf589ab54e52386465432ccd1ec995e60c;p=perl%2Fmodules%2FScalar-Vec-Util.git

diff --git a/t/02-pp.t b/t/02-pp.t
index dea9f2b..35e3d85 100644
--- a/t/02-pp.t
+++ b/t/02-pp.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Config qw/%Config/;
+use Config qw<%Config>;
 
 use Test::More tests => 4;
 
@@ -17,10 +17,10 @@ BEGIN {
  };
 }
 
-use Scalar::Vec::Util qw/vfill vcopy veq SVU_PP/;
+use Scalar::Vec::Util qw<vfill vcopy veq SVU_PP>;
 
-is(SVU_PP, 1, 'using pure perl subroutines');
-for (qw/vfill vcopy veq/) {
+is SVU_PP, 1, 'using pure perl subroutines';
+for (qw<vfill vcopy veq>) {
  no strict 'refs';
- is(*{$_}{CODE}, *{'Scalar::Vec::Util::'.$_}{CODE}, $_ .' is ' . $_ . '_pp');
+ is *{$_}{CODE}, *{'Scalar::Vec::Util::'.$_}{CODE}, $_ .' is ' . $_ . '_pp';
 }