dpkg-gencontrol (spfileslistvalue): Add prototype, move to the top of the file

diff --git a/ChangeLog b/ChangeLog
index 74142581f99ed6f3607ca54f273a2b850a426631..ba8fba4d9b4497f06e101addb0d8e9f3adbea377 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-29  Guillem Jover  <guillem@debian.org>
+
+       * scripts/dpkg-gencontrol.pl (spfileslistvalue): Add prototype. Move
+       to the top of the file with the other functions.
+
 2007-11-29  Guillem Jover  <guillem@debian.org>
 
        * src/main.c (log_file): Move definition to ...

diff --git a/scripts/dpkg-gencontrol.pl b/scripts/dpkg-gencontrol.pl
index d7493604bf95e3e3ffac66ae59113ee5aa943e7a..857995074891a04f6b4826f030f557cb4378869b 100755 (executable)
--- a/scripts/dpkg-gencontrol.pl
+++ b/scripts/dpkg-gencontrol.pl
@@ -84,6 +84,13 @@ Options:
 "), $progname;
 }
 
+sub spfileslistvalue($)
+{
+    my $r = $spvalue{$_[0]};
+    $r = '-' if !defined($r);
+    return $r;
+}
+
 
 while (@ARGV) {
     $_=shift(@ARGV);
@@ -381,8 +388,3 @@ if (!$stdout) {
         syserr(_g("cannot install output control file \`%s'"), $cf);
 }
 
-sub spfileslistvalue {
-    my $r = $spvalue{$_[0]};
-    $r = '-' if !defined($r);
-    return $r;
-}