[Initscripts-ng-commits] r1039 - /trunk/src/insserv/debian/check-archive-initd-scripts

[pere at users.alioth.debian.org]

Author: pere
Date: Sun Oct 11 07:55:48 2009
New Revision: 1039

URL: http://svn.debian.org/wsvn/initscripts-ng/?sc=1&rev=1039
Log:
Detect missing $syslog dependency.

Modified:
    trunk/src/insserv/debian/check-archive-initd-scripts

Modified: trunk/src/insserv/debian/check-archive-initd-scripts
URL: http://svn.debian.org/wsvn/initscripts-ng/trunk/src/insserv/debian/check-archive-initd-scripts?rev=1039&op=diff
==============================================================================
--- trunk/src/insserv/debian/check-archive-initd-scripts (original)
+++ trunk/src/insserv/debian/check-archive-initd-scripts Sun Oct 11 07:55:48 2009
@@ -114,6 +114,11 @@
              && $scriptinfo{$initdscript}->{'need_local_fs'}
              && $scriptinfo{$initdscript}->{'default-start'} =~ m/s/i) {
         warning("script $short possibly missing dependency on \$local_fs");
+    }
+
+    if (!exists $checked{'$local_fs'}
+        && $scriptinfo{$initdscript}->{'need_syslog'}) {
+        warning("script $short possibly missing dependency on \$syslog");
     }
 
     my %provided;
@@ -206,6 +211,18 @@
     }
     close(INIT);
 
+    # When running on bellini.debian.org, check if $syslog is needed
+    my $objdumpinfo = dirname($initdscript) . "/../objdump-info";
+    if ( -f $objdumpinfo) {
+        print "Checking for syslog symbol\n";
+        if (open(OBJDUMP, "<", $objdumpinfo)) {
+            while (<OBJDUMP>) {
+                $lsbinfo{'need_syslog'} = 1 if /GLIBC.* syslog/;
+            }
+            close OBJDUMP;
+        }
+    }
+
     # Check that all the required headers are present
     if (!$lsbinfo{'found'}) {
         error("script $short is missing LSB header");