Switch qw delimiters to <>

[perl/modules/rgit.git] / t / 16-levels.t

diff --git a/t/16-levels.t b/t/16-levels.t
index 38e126a6a26c294873b5d55b33d8fb292b1448eb..240ded6dcb17618f1408efe9a03470a5a6acdcf4 100644 (file)
--- 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";
 }