Fix unportable awk script in vc-list-files.

* build-aux/vc-list-files: In the replacement awk script, use
substr with a second argument of 1, not zero.
Report by Simon Josefsson.

Signed-off-by: Ralf Wildenhues <Ralf.Wildenhues@gmx.de>

diff --git a/ChangeLog b/ChangeLog
index 3818884..9e629c8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2009-03-01  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
+
+       Fix unportable awk script in vc-list-files.
+       * build-aux/vc-list-files: In the replacement awk script, use
+       substr with a second argument of 1, not zero.
+       Report by Simon Josefsson.
+
 2009-02-28  Bruno Haible  <bruno@clisp.org>
 
        More support for FreeMiNT.

diff --git a/build-aux/vc-list-files b/build-aux/vc-list-files
index 419ab2a..56acd5f 100755 (executable)
--- a/build-aux/vc-list-files
+++ b/build-aux/vc-list-files
@@ -2,9 +2,9 @@
 # List version-controlled file names.
 
 # Print a version string.
-scriptversion=2008-07-11.19
+scriptversion=2009-03-01.09
 
-# Copyright (C) 2006-2008 Free Software Foundation, Inc.
+# Copyright (C) 2006-2009 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
@@ -89,7 +89,7 @@ elif test -d CVS; then
        if (!$1 && $3 !~ /^-/) {        \
          f=FILENAME;                   \
          if (f ~ /CVS\/Entries$/)      \
-           f = substr(f, 0, length(f)-11); \
+           f = substr(f, 1, length(f)-11); \
          print f $2;                   \
        }}'\''                          \
       `find "$dir" -name Entries -print` /dev/null' $postprocess