view release on metacpan or  search on metacpan

cpanflute.patch  view on Meta::CPAN

+L<perl> L<rpm>
+
+=cut
+
 use File::Basename;
 use Sys::Hostname;
 use Getopt::Long;
@@ -11,7 +78,7 @@
 # set default options, then get options
 my %options=();
 $options{'email'}=(getpwuid($<))[0] . "\@redhat.com" ;
-GetOptions(\%options, "email=s", "n=s", "create") || exit 1;
+GetOptions(\%options, "email=s", "n=s", "create", "meta-info=s") || exit 1;
 
 my $InputFile = $ARGV[0];
 my $create = '';
@@ -42,6 +109,34 @@
 ($clm_name eq "") && die "Module name not specified\n";
 ($clm_version eq "") && die "Module version not specified\n";
 
+my $desc="$clm_name module for perl";