Tests for module 'unicase/u16-is-uppercase'.

[gnulib.git] / build-aux / vc-list-files

diff --git a/build-aux/vc-list-files b/build-aux/vc-list-files
index 63b403a..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-04-30.12
+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
@@ -75,6 +75,9 @@ if test -d .git; then
   eval exec git ls-files '"$dir"' $postprocess
 elif test -d .hg; then
   eval exec hg locate '"$dir/*"' $postprocess
+elif test -d .bzr; then
+  test "$postprocess" = '' && postprocess="| sed 's|^\./||'"
+  eval exec bzr ls --versioned '"$dir"' $postprocess
 elif test -d CVS; then
   test "$postprocess" = '' && postprocess="| sed 's|^\./||'"
   if test -x build-aux/cvsu; then
@@ -85,10 +88,11 @@ elif test -d CVS; then
     eval awk -F/ \''{                  \
        if (!$1 && $3 !~ /^-/) {        \
          f=FILENAME;                   \
-         sub(/CVS\/Entries/, "", f);   \
+         if (f ~ /CVS\/Entries$/)      \
+           f = substr(f, 1, length(f)-11); \
          print f $2;                   \
        }}'\''                          \
-      $(find "$dir" -name Entries -print) /dev/null' $postprocess
+      `find "$dir" -name Entries -print` /dev/null' $postprocess
   fi
 else
   echo "$0: Failed to determine type of version control used in `pwd`" 1>&2