[project @ 2003-09-01 01:19:24 by cjwatson]

Require whitespace after 'package' command (#207988).

diff --git a/scripts/service.in b/scripts/service.in
index a4cbc9316153387b9c9f179883693dc1a6e04b8d..c92124db9d3f54066a11416983aac07f8c7b961c 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.91 2003/08/31 14:21:02 cjwatson Exp $
+# $Id: service.in,v 1.92 2003/09/01 01:19:24 cjwatson Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -615,7 +615,7 @@ END
                }
            }
        }
-    } elsif (m/^package\s*(\S.*\S)?\s*$/i) {
+    } elsif (m/^package\s+(\S.*\S)?\s*$/i) {
         $ok++;
        my @pkgs = split /\s+/, $1;
        if (scalar(@pkgs) > 0) {