X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=samples%2Fgenerate.pl;h=a8332279be776d6cb1eae2c6cc0eef9a38decfa4;hb=698741fb7af41bc3d17b3489201b4ea26109703d;hp=c78fd505aaec0cd41a52fdd3d9bdfd9dce23971b;hpb=908871ae41421646436f52b55e2f17098b13adfc;p=perl%2Fmodules%2FTask-Devel-Cover-Recommended.git

diff --git a/samples/generate.pl b/samples/generate.pl
index c78fd50..a833227 100644
--- a/samples/generate.pl
+++ b/samples/generate.pl
@@ -112,7 +112,7 @@ for my $eumm_phase (keys %eumm_phases) {
 
  for my $meta_phase (@{$eumm_phases{$eumm_phase}}) {
 
-  for my $type (qw<requires recommends>) {
+  for my $type (qw<requires recommends suggests>) {
    my $phase_prereqs = $meta->{prereqs}{$meta_phase}{$type};
    next unless $phase_prereqs;
 
@@ -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";