Removing frog.

[maemian] / minimae

diff --git a/minimae b/minimae
index 26721b6..b0e3b3a 100755 (executable)
--- a/minimae
+++ b/minimae
@@ -26,6 +26,9 @@ ascertain who uploaded it, and if they used the correct email address.
     # Check a debian description file
     minimae -i file.dsc
 
+    # Check a deb
+    minimae -i file.deb
+
 =cut
 
 use strict;
@@ -40,8 +43,10 @@ use Maemian::Schedule;
 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
   (
@@ -51,8 +56,7 @@ GetOptions
   );
 
 # --- Process Command line options
-pod2usage() if $help;
-pod2usage() if not $inputfile;
+pod2usage(1) if $help;
 
 # --- Output settings
 my $out = new Maemian::Output;
@@ -86,7 +90,13 @@ sub file_tests {
   # 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;
 }