X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=blobdiff_plain;f=t%2F16-levels.t;fp=t%2F16-levels.t;h=240ded6dcb17618f1408efe9a03470a5a6acdcf4;hp=38e126a6a26c294873b5d55b33d8fb292b1448eb;hb=80656eec9bd2400f8db71d0d10d7d0be54139667;hpb=687f613f4cb227badb87cfd26c7dc7ceae810d03

diff --git a/t/16-levels.t b/t/16-levels.t
index 38e126a..240ded6 100644
--- a/t/16-levels.t
+++ b/t/16-levels.t
@@ -8,7 +8,7 @@ use warnings;
 use Test::More tests => 4;
 
 use App::Rgit::Config;
-use App::Rgit::Utils qw/:levels/;
+use App::Rgit::Utils qw<:levels>;
 
 local $SIG{__WARN__} = sub { diag 'warning:',   @_ };
 local $SIG{__DIE__}  = sub { diag 'exception:', @_ };
@@ -33,7 +33,7 @@ for my $l (0 .. $#levels) {
  my $buf = '';
  close STDERR;
  open STDERR, '>', \$buf or die "open(STDERR, '>', \\\$buf): $!";
- $arc->$_($_) for qw/info warn err crit/;
+ $arc->$_($_) for qw<info warn err crit>;
  is $buf, join('', @levels[$l .. $#levels]), "level $l ok";
 }