X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTask-Devel-Cover-Recommended.git;a=blobdiff_plain;f=samples%2Fgenerate.pl;h=6a5ca75c59cd8ded884f53ab08c6e08988d3b0f9;hp=c78fd505aaec0cd41a52fdd3d9bdfd9dce23971b;hb=7c2f012b6e602a79aebd27fde86fc171b361f059;hpb=bd2aa0b72e926337a3a391cd0e77d4363bbeeac9

diff --git a/samples/generate.pl b/samples/generate.pl
index c78fd50..6a5ca75 100644
--- a/samples/generate.pl
+++ b/samples/generate.pl
@@ -194,7 +194,7 @@ sub deplist_to_perl {
  return '{ }' unless @deplist;
 
  my $len = List::Util::max(
-  map length, @deplist[grep not($_ % 2), 0 .. $#deplist ]
+  map length, @deplist[grep not($_ % 2), 0 .. $#deplist]
  );
 
  my $perl = "{\n";