empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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>
This commit is contained in:
Markus Armbruster 2016-05-31 21:28:00 +02:00
parent fce3ecf49a
commit a65fcfc23c
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/scripts/ls-sources.pl
View file

@ -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;