# Check a debian description file
minimae -i file.dsc
+ # Check a deb
+ minimae -i file.deb
+
=cut
use strict;
my $LINTIAN_LAB = "/home/jeremiah/maemian/lab";
# --- Command line options
-my $inputfile; # --- A file passed on the command line
-my ($help, $verbose);
+my $pkg_mode = 'a'; # auto -- automatically search for
+ # binary and source pkgs
+my $inputfile; # --- A file passed on the command line
+my ($help, $verbose, );
GetOptions
(
);
# --- Process Command line options
-pod2usage() if $help;
-pod2usage() if not $inputfile;
+pod2usage(1) if $help;
# --- Output settings
my $out = new Maemian::Output;
# We push the entire file into an array
# If the file is signed, the sig is separated by a blank line
my @control = slurp $file, { irs => qr/\n\n/xms };
- my @lines = split /\n/, $control[1];
+ my @lines;
+ if ($#control > 1) {
+ @lines = split /\n/, $control[1];
+ }
+ else {
+ @lines = split /\n/, $control[0];
+ }
print map { $_ } grep /Maintainer/, @lines;
}