X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Frgit.git;a=blobdiff_plain;f=lib%2FApp%2FRgit%2FConfig.pm;fp=lib%2FApp%2FRgit%2FConfig.pm;h=7e5fa8fc79ad1e20a83ac2d9e56bc4dbc98f5281;hp=c384203a69d0cdac90ca12626ed0f3c4688b9b78;hb=80656eec9bd2400f8db71d0d10d7d0be54139667;hpb=687f613f4cb227badb87cfd26c7dc7ceae810d03

diff --git a/lib/App/Rgit/Config.pm b/lib/App/Rgit/Config.pm
index c384203..7e5fa8f 100644
--- a/lib/App/Rgit/Config.pm
+++ b/lib/App/Rgit/Config.pm
@@ -8,7 +8,7 @@ use Cwd        (); # cwd
 use File::Spec (); # canonpath, catfile, path
 
 use App::Rgit::Repository;
-use App::Rgit::Utils qw/:levels/; # :levels, abs_path
+use App::Rgit::Utils qw<:levels>; # :levels, abs_path
 
 use constant IS_WIN32 => $^O eq 'MSWin32';
 
@@ -68,7 +68,7 @@ sub new {
  if (IS_WIN32) {
   my @acc;
   for my $c (@candidates) {
-   push @acc, $c, map "$c.$_", qw/exe com bat cmd/;
+   push @acc, $c, map "$c.$_", qw<exe com bat cmd>;
   }
   @candidates = @acc;
  }
@@ -148,7 +148,7 @@ Read-only accessors.
 =cut
 
 BEGIN {
- eval "sub $_ { \$_[0]->{$_} }" for qw/root git cwd_repo debug/;
+ eval "sub $_ { \$_[0]->{$_} }" for qw<root git cwd_repo debug>;
 }
 
 =head1 SEE ALSO