mirror of
https://github.com/git/git
synced 2024-08-25 02:35:46 +00:00
Do not use perl in git-commit.sh
git-commit.sh has the only one place where perl is used and there it can quite trivially be done in sh. git-ls-files without "-z" produces quoted output, even if is different from that produced by perl code it is good enough. Signed-off-by: Alex Riesen <raa.lkml@gmail.com> Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
parent
f5b571fcf7
commit
3dffd2c828
|
@ -138,32 +138,26 @@ run_status () {
|
|||
if test -z "$untracked_files"; then
|
||||
option="--directory --no-empty-directory"
|
||||
fi
|
||||
hdr_shown=
|
||||
if test -f "$GIT_DIR/info/exclude"
|
||||
then
|
||||
git-ls-files -z --others $option \
|
||||
git-ls-files --others $option \
|
||||
--exclude-from="$GIT_DIR/info/exclude" \
|
||||
--exclude-per-directory=.gitignore
|
||||
else
|
||||
git-ls-files -z --others $option \
|
||||
git-ls-files --others $option \
|
||||
--exclude-per-directory=.gitignore
|
||||
fi |
|
||||
@@PERL@@ -e '$/ = "\0";
|
||||
my $shown = 0;
|
||||
while (<>) {
|
||||
chomp;
|
||||
s|\\|\\\\|g;
|
||||
s|\t|\\t|g;
|
||||
s|\n|\\n|g;
|
||||
s/^/# /;
|
||||
if (!$shown) {
|
||||
print "#\n# Untracked files:\n";
|
||||
print "# (use \"git add\" to add to commit)\n";
|
||||
print "#\n";
|
||||
$shown = 1;
|
||||
}
|
||||
print "$_\n";
|
||||
}
|
||||
'
|
||||
while read line; do
|
||||
if [ -z "$hdr_shown" ]; then
|
||||
echo '#'
|
||||
echo '# Untracked files:'
|
||||
echo '# (use "git add" to add to commit)'
|
||||
echo '#'
|
||||
hdr_shown=1
|
||||
fi
|
||||
echo "# $line"
|
||||
done
|
||||
|
||||
if test -n "$verbose" -a -z "$IS_INITIAL"
|
||||
then
|
||||
|
|
Loading…
Reference in a new issue