X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=blobdiff_plain;f=t%2F20-each.t;fp=t%2F20-each.t;h=a5ac4d3e167846900984a49b0457a2dd37349f8d;hp=ed1c0c207e2392d87474c1568f22b6404d71f23f;hb=80656eec9bd2400f8db71d0d10d7d0be54139667;hpb=687f613f4cb227badb87cfd26c7dc7ceae810d03 diff --git a/t/20-each.t b/t/20-each.t index ed1c0c2..a5ac4d3 100644 --- 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; use File::Spec (); # catdir, catfile -use File::Temp qw/tempfile tempdir/; +use File::Temp qw; 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; 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";