X-Git-Url: https://vcs.maemo.org/git/?a=blobdiff_plain;ds=sidebyside;f=maemian;h=81f7ff45cc1f498223c0d09848f478e07091c19b;hb=1960326d487467271f731ff6a62830404a4947af;hp=867dccd9e432dbb81afe89fee77d18683379afec;hpb=ce31209d7230201c69f8f234032a774fbbbc43cd;p=maemian

diff --git a/maemian b/maemian
index 867dccd..81f7ff4 100755
--- 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");