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 # ls-sources.pl: List source files
# #
# Known contributors to this file: # Known contributors to this file:
# Markus Armbruster, 2015 # Markus Armbruster, 2015-2016
# #
# Usage: ls-sources.pl DIR REGEX # Usage: ls-sources.pl DIR REGEX
# #
@ -51,9 +51,9 @@ my $srcdir = $dir;
my $subdir = ""; my $subdir = "";
while (! -d "$srcdir/.git" and ! -r "$srcdir/sources.mk" while (! -d "$srcdir/.git" and ! -r "$srcdir/sources.mk"
and $srcdir =~ m,^(.*)/([^/]*),) { and $srcdir =~ m,^((.*)/)?([^/]*),) {
$srcdir = $1; $srcdir = $2 || ".";
$subdir = "$2/$subdir"; $subdir = "$3/$subdir";
} }
my @sources; my @sources;