X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FCPANPLUS-Dist-Gentoo.git;a=blobdiff_plain;f=lib%2FCPANPLUS%2FDist%2FGentoo%2FMaps.pm;h=f9c478ca684fb0ad4d4146a1e5233ef61ccf4164;hp=9c91f8525cda2e3776f0d44bfe2cb6876a7386e3;hb=d77142c8216a27e216565391d32d2cf3f321f63c;hpb=429baac5b02f5d63589a910076a2aa06b13c3788

diff --git a/lib/CPANPLUS/Dist/Gentoo/Maps.pm b/lib/CPANPLUS/Dist/Gentoo/Maps.pm
index 9c91f85..f9c478c 100644
--- a/lib/CPANPLUS/Dist/Gentoo/Maps.pm
+++ b/lib/CPANPLUS/Dist/Gentoo/Maps.pm
@@ -173,11 +173,11 @@ my $letters_as_suffix = sub {
 
 my %version_mismatch;
 
-$version_mismatch{$_} = $insert_dot_at_1 for qw/
+$version_mismatch{$_} = $insert_dot_at_1 for qw<
  CGI-Simple
-/;
+>;
 
-$version_mismatch{$_} = $insert_dot_at_all_1 for qw/
+$version_mismatch{$_} = $insert_dot_at_all_1 for qw<
  AnyEvent
  Archive-Rar
  IO-AIO
@@ -187,13 +187,13 @@ $version_mismatch{$_} = $insert_dot_at_all_1 for qw/
  Tie-Array-Sorted
  Tk-TableMatrix
  XML-RSS-Feed
-/;
+>;
 
-$version_mismatch{$_} = $insert_dot_at_2 for qw/
+$version_mismatch{$_} = $insert_dot_at_2 for qw<
  Error
-/;
+>;
 
-$version_mismatch{$_} = $insert_dot_at_all_2 for qw/
+$version_mismatch{$_} = $insert_dot_at_all_2 for qw<
  Authen-Htpasswd
  BSD-Resource
  CDDB
@@ -216,35 +216,35 @@ $version_mismatch{$_} = $insert_dot_at_all_2 for qw/
  Time-HiRes
  Time-Local
  perl-ldap
-/;
+>;
 
-$version_mismatch{$_} = $insert_dot_at_all_3 for qw/
+$version_mismatch{$_} = $insert_dot_at_all_3 for qw<
  Parse-RecDescent
  Return-Value
-/;
+>;
 
-$version_mismatch{$_} = $pad_decimals_to_2 for qw/
+$version_mismatch{$_} = $pad_decimals_to_2 for qw<
  Nmap-Parser
  XML-AutoWriter
-/;
+>;
 
-$version_mismatch{$_} = $pad_decimals_to_4 for qw/
+$version_mismatch{$_} = $pad_decimals_to_4 for qw<
  Convert-BER
-/;
+>;
 
-$version_mismatch{$_} = $correct_suffixes for qw/
+$version_mismatch{$_} = $correct_suffixes for qw<
  Gimp
  XML-Grove
-/;
+>;
 
-$version_mismatch{$_} = $strip_letters for qw/
+$version_mismatch{$_} = $strip_letters for qw<
  DelimMatch
  SGMLSpm
-/;
+>;
 
-$version_mismatch{$_} = $letters_as_suffix for qw/
+$version_mismatch{$_} = $letters_as_suffix for qw<
  Frontier-RPC
-/;
+>;
 
 sub version_c2g {
  my ($n, $v) = @_;