projects
/
maemian
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
our $MAEMIAN_ARCH = undef;
our $MAEMIAN_SECTION = undef;
our $MAEMIAN_AREA = undef;
-# }}}
-
-# {{{ Setup Code
#turn off file buffering
$| = 1;
#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;
}
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) = @_;
# 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}) {
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};
}
}
$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");
opendir(COLLDIR, "$MAEMIAN_ROOT/collection")
or fail("cannot read directory $MAEMIAN_ROOT/collection");