X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=check-module;h=c3334f1fed3d94e6ef52fd03e78de7a1393545c8;hb=b2b1b4208042f959acc8cbc9ec1da0cac0445492;hp=b671163c6ee3aeadc5b40ed0da5dbdb99d149cd8;hpb=fe61767551719ec7d157612792242f36fd35ff4f;p=gnulib.git diff --git a/check-module b/check-module index b671163c6..c3334f1fe 100755 --- 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 .\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"; } } }