# HG changeset patch
# User Jim Meyering <jim@meyering.net>
# Date 1172579925 0
# Node ID 53012fe4365be21e0f905984f92c63985eae091f
# Parent  77e7d77d96c7fa009e94f5eafc776a606129c61a
* build-aux/announce-gen: When complaining about excess arguments,
list them.

diff --git a/ChangeLog b/ChangeLog
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-02-25  Jim Meyering  <jim@meyering.net>
+
+	* build-aux/announce-gen: When complaining about excess arguments,
+	list them.
+
 2007-02-25  Paul Eggert  <eggert@cs.ucla.edu>
 
 	* README: Document signed integer overflow situation more
diff --git a/build-aux/announce-gen b/build-aux/announce-gen
--- a/build-aux/announce-gen
+++ b/build-aux/announce-gen
@@ -1,13 +1,13 @@
 #!/usr/bin/perl -w
 # Generate a release announcement message.
 
-my $VERSION = '2006-12-28 19:19'; # UTC
+my $VERSION = '2007-02-25 16:41'; # UTC
 # The definition above must lie within the first 8 lines in order
 # for the Emacs time-stamp write hook (at end) to update it.
 # If you change this file with Emacs, please let the write hook
 # do its job.  Otherwise, update this string manually.
 
-# Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
+# Copyright (C) 2002-2007 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -419,7 +419,8 @@
     or (warn "$ME: `$release_type': invalid release type\n"), $fail = 1;
 
   @ARGV
-    and (warn "$ME: too many arguments\n"), $fail = 1;
+    and (warn "$ME: too many arguments:\n", join ("\n", @ARGV), "\n"),
+      $fail = 1;
   $fail
     and usage 1;