X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=blobdiff_plain;f=t%2F16-levels.t;h=240ded6dcb17618f1408efe9a03470a5a6acdcf4;hp=9a4410db5afc02365d651412dfefacd0091439ea;hb=HEAD;hpb=00f4d1f6016748f8b4623d8ff32546069f763a95

diff --git a/t/16-levels.t b/t/16-levels.t
index 9a4410d..240ded6 100644
--- a/t/16-levels.t
+++ b/t/16-levels.t
@@ -1,15 +1,17 @@
 #!perl
 
+use 5.008;
+
 use strict;
 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 @_ };
-local $SIG{__DIE__} = sub { diag @_ };
+local $SIG{__WARN__} = sub { diag 'warning:',   @_ };
+local $SIG{__DIE__}  = sub { diag 'exception:', @_ };
 
 my %levels = (
  info => INFO,
@@ -26,13 +28,13 @@ for my $l (0 .. $#levels) {
  my $arc = App::Rgit::Config->new(
   root  => 't',
   git   => 't/bin/git',
-  debug => $levels{$levels[$l]}
+  debug => $levels{$levels[$l]},
  );
  my $buf = '';
  close STDERR;
  open STDERR, '>', \$buf or die "open(STDERR, '>', \\\$buf): $!";
- $arc->$_($_) for qw/info warn err crit/;
- is($buf, join('', @levels[$l .. $#levels]), "level $l ok");
+ $arc->$_($_) for qw<info warn err crit>;
+ is $buf, join('', @levels[$l .. $#levels]), "level $l ok";
 }
 
 close STDERR;