Switch qw delimiters to <>

[perl/modules/rgit.git] / t / 20-each.t

diff --git a/t/20-each.t b/t/20-each.t
index ed1c0c207e2392d87474c1568f22b6404d71f23f..a5ac4d3e167846900984a49b0457a2dd37349f8d 100644 (file)
--- a/t/20-each.t
+++ b/t/20-each.t
@@ -3,18 +3,18 @@
 use strict;
 use warnings;
 
-use Cwd        qw/cwd abs_path/;
+use Cwd        qw<cwd abs_path>;
 use File::Spec (); # catdir, catfile
-use File::Temp qw/tempfile tempdir/;
+use File::Temp qw<tempfile tempdir>;
 
 use Test::More;
 
-use App::Rgit::Utils qw/:codes/;
+use App::Rgit::Utils qw<:codes>;
 use App::Rgit;
 
 use lib 't/lib';
 
-use App::Rgit::TestUtils qw/can_run_git/;
+use App::Rgit::TestUtils qw<can_run_git>;
 use App::Rgit::Policy::Callback;
 
 my ($can_run, $reason) = can_run_git;
@@ -132,7 +132,7 @@ sub try {
   git    => 't/bin/git',
   root   => $tmpdir,
   cmd    => $cmd,
-  args   => [ abs_path($filename), $cmd, qw/%n %g %w %b %G %W %B %R %%n %x/ ],
+  args   => [ abs_path($filename), $cmd, qw<%n %g %w %b %G %W %B %R %%n %x> ],
   policy => $policy,
  );
  isa_ok $ar, 'App::Rgit', "each $cmd is an App::Rgit object";