* check-module: Diagnose a self-dependency.

diff --git a/ChangeLog b/ChangeLog
index 18efaa1119f3210d8b88a6676b0b0035a6641836..67135f9d117d2803146a58f788c1c9e2905fad1b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2007-07-20  Jim Meyering  <jim@meyering.net>
+
+       * check-module: Diagnose a self-dependency.
+
 2007-07-19  Bruno Haible  <bruno@clisp.org>
 
        * gnulib-tool (func_import): Don't abort if pobase or po_domain is

diff --git a/check-module b/check-module
index b671163c6ee3aeadc5b40ed0da5dbdb99d149cd8..c3334f1fed3d94e6ef52fd03e78de7a1393545c8 100755 (executable)
--- a/check-module
+++ b/check-module
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 # Check a gnulib module.
 
-# Copyright (C) 2005, 2006 Free Software Foundation, Inc.
+# Copyright (C) 2005, 2006, 2007 Free Software Foundation, Inc.
 
 # This file is free software; you can redistribute it and/or modify it
 # under the terms of the GNU General Public License as published by
@@ -46,7 +46,7 @@ my $COPYRIGHT_NOTICE = "Copyright (C) 2006 Free Software Foundation, Inc.\n".
 "the GNU General Public License <http://www.gnu.org/licenses/gpl.html>.\n".
 "There is NO WARRANTY, to the extent permitted by law.\n";
 
-(my $VERSION = '$Revision: 1.7 $ ') =~ tr/[0-9].//cd;
+(my $VERSION = '$Revision: 1.8 $ ') =~ tr/[0-9].//cd;
 (my $ME = $0) =~ s|.*/||;
 
 use constant ST_INIT => 1;
@@ -98,6 +98,9 @@ sub parse_module_file ($)
          elsif ($state eq ST_DEPENDENTS)
            {
              $dep_set{$line} = 1;
+             (my $base = $module_file) =~ s,.*/,,;
+             $line eq $base
+               and die "$ME: module $module_file depends on itself\n";
            }
        }
     }