[SCM] Debian package checker branch, infra-513663, updated. 2.4.3-123-g2d5f371

["Niels Thykier" <niels@thykier.net>]

The following commit has been merged in the infra-513663 branch:
commit 778975f94e3dd5030802e8c2a945c8d742cf130b
Author: Niels Thykier <niels@thykier.net>
Date:   Thu Jan 6 23:42:50 2011 +0100

    Move set_value down to the test of the subs.

diff --git a/frontend/lintian b/frontend/lintian
index 71bfc8f..5abea3c 100755
--- a/frontend/lintian
+++ b/frontend/lintian
@@ -870,19 +870,6 @@ if (not $check_everything and not $packages_file and not $schedule->count) {
 }
 # }}}
 
-# {{{ A lone subroutine
-#----------------------------------------------------------------------------
-#  Check to make sure there are packages to check.
-sub set_value {
-    my ($f,$target,$field,$source,$required) = @_;
-    if ($required and not defined($source->{$field})) {
-	fail("description file $f does not define required tag $field");
-    }
-    $target->{$field} = $source->{$field};
-    delete $source->{$field};
-}
-# }}}
-
 # {{{ Load information about collector scripts
 opendir(COLLDIR, "$LINTIAN_ROOT/collection")
     or fail("cannot read directory $LINTIAN_ROOT/collection");
@@ -1483,6 +1470,16 @@ exit $exit_code;
 
 # {{{ Some subroutines
 
+#  Check to make sure there are packages to check.
+sub set_value {
+    my ($f,$target,$field,$source,$required) = @_;
+    if ($required and not defined($source->{$field})) {
+	fail("description file $f does not define required tag $field");
+    }
+    $target->{$field} = $source->{$field};
+    delete $source->{$field};
+}
+
 sub sort_coll {
     my ($ap, $bp);
     $ap = $map->getProp($a);

-- 
Debian package checker