Also list 'suggests' dependencies

[perl/modules/Task-Devel-Cover-Recommended.git] / samples / generate.pl

diff --git a/samples/generate.pl b/samples/generate.pl
index c78fd505aaec0cd41a52fdd3d9bdfd9dce23971b..a8332279be776d6cb1eae2c6cc0eef9a38decfa4 100644 (file)
--- 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";