Added lots more modules from lintian. Maemian appears to work.

[maemian] / maemian

diff --git a/maemian b/maemian
index 867dccd..81f7ff4 100755 (executable)
--- a/maemian
+++ b/maemian
@@ -113,9 +113,6 @@ our $MAEMIAN_UNPACK_LEVEL = undef;
 our $MAEMIAN_ARCH = undef;
 our $MAEMIAN_SECTION = undef;
 our $MAEMIAN_AREA = undef;
-# }}}
-
-# {{{ Setup Code
 
 #turn off file buffering
 $| = 1;
@@ -1061,22 +1058,20 @@ if (not $check_everything and not $packages_file and not $schedule->count) {
     v_msg("No packages selected.");
     exit $exit_code;
 }
-# }}}
 
-# {{{ A lone subroutine
-#----------------------------------------------------------------------------
 #  Check to make sure there are packages to check.
 sub set_value {
     my ($f,$target,$field,$source,$required) = @_;
+    use YAML;
+#    print map { Dump($_) } @_;
     if ($required and not $source->{$field}) {
-       fail("description file $f does not define required tag $field");
+      print Dump($f)."\n";
+      fail("description file $f does not define required tag $field");
     }
     $target->{$field} = $source->{$field};
     delete $source->{$field};
 }
-# }}}
 
-# {{{ Load information about collector scripts
 opendir(COLLDIR, "$MAEMIAN_ROOT/collection")
     or fail("cannot read directory $MAEMIAN_ROOT/collection");