ls-sources.pl: Fix for directory relative to root of tree

Given and argument like tests/xdump, the script looks for
tests/xdump/.git, tests/.git, /.git.  The last one is wrong.  Make it
look for ./.git then.

Signed-off-by: Markus Armbruster <armbru@pond.sub.org>

diff --git a/src/scripts/ls-sources.pl b/src/scripts/ls-sources.pl
index 2a1138ce1f7bf7b92dc0b2d425aad0708cc2c7d4..73e39c8681854273493d62ea98dd2e3f2a098750 100755 (executable)
--- a/src/scripts/ls-sources.pl
+++ b/src/scripts/ls-sources.pl
@@ -28,7 +28,7 @@
 #   ls-sources.pl: List source files
 #
 #   Known contributors to this file:
-#      Markus Armbruster, 2015
+#      Markus Armbruster, 2015-2016
 #
 # Usage: ls-sources.pl DIR REGEX
 #
@@ -51,9 +51,9 @@ my $srcdir = $dir;
 my $subdir = "";
 
 while (! -d "$srcdir/.git" and ! -r "$srcdir/sources.mk"
-       and $srcdir =~ m,^(.*)/([^/]*),) {
-    $srcdir = $1;
-    $subdir = "$2/$subdir";
+       and $srcdir =~ m,^((.*)/)?([^/]*),) {
+    $srcdir = $2 || ".";
+    $subdir = "$3/$subdir";
 }
 
 my @sources;