X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=check-module;h=6961cd0a872fb328dee520c9f9d246edb9269a47;hb=9b3f89390fcecf075fa14254cab1ad11d02f65a5;hp=b671163c6ee3aeadc5b40ed0da5dbdb99d149cd8;hpb=fe61767551719ec7d157612792242f36fd35ff4f;p=gnulib.git
diff --git a/check-module b/check-module
index b671163c6..6961cd0a8 100755
--- a/check-module
+++ b/check-module
@@ -1,22 +1,20 @@
#!/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
+# 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
-# the Free Software Foundation; either version 2 of the License, or
+# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
-# This program is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# General Public License for more details.
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
-# 02110-1301, USA.
+# along with this program. If not, see .
# Read a module description file and derive the set of files
@@ -46,7 +44,7 @@ my $COPYRIGHT_NOTICE = "Copyright (C) 2006 Free Software Foundation, Inc.\n".
"the GNU General Public License .\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 +96,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";
}
}
}