Mercurial > hg > octave-nkf > gnulib-hg
changeset 9111:5e12596c4187
* check-module: Diagnose a self-dependency.
author | Jim Meyering <jim@meyering.net> |
---|---|
date | Fri, 20 Jul 2007 13:17:47 +0000 |
parents | 2543721ef582 |
children | 8b2acf250f22 |
files | ChangeLog check-module |
diffstat | 2 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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 @@ "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 @@ 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"; } } }