chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Dgit.pm: Call `confess' when shellquote gets an undef arg
[dgit.git]
/
dgit
diff --git
a/dgit
b/dgit
index 3d81558fc21bc1044ddc50684a1ff8ea058724e8..eb42b00dee0cb75d71e803280ff1c9f3677a2417 100755
(executable)
--- a/
dgit
+++ b/
dgit
@@
-1699,7
+1699,7
@@
sub mktree_in_ud_here () {
runcmd qw(git config gc.auto 0);
rmtree('.git/objects');
symlink '../../../../objects','.git/objects' or die $!;
runcmd qw(git config gc.auto 0);
rmtree('.git/objects');
symlink '../../../../objects','.git/objects' or die $!;
- setup_gitattrs();
+ setup_gitattrs(
1
);
}
sub git_write_tree () {
}
sub git_write_tree () {
@@
-3353,7
+3353,7
@@
END
print GAO <<END or die $!;
* dgit-defuse-attrs
[attr]dgit-defuse-attrs -text -eol -crlf -ident -filter
print GAO <<END or die $!;
* dgit-defuse-attrs
[attr]dgit-defuse-attrs -text -eol -crlf -ident -filter
-# ^ see
dgit(7). To undo, leave a definition of [attr]dgit-defuse-attrs
+# ^ see
GITATTRIBUTES in dgit(7) and dgit setup-new-tree in dgit(1)
END
my $gai = open_gitattrs();
if ($gai) {
END
my $gai = open_gitattrs();
if ($gai) {
@@
-3392,7
+3392,7
@@
sub check_gitattrs ($$) {
# oh dear, found one
print STDERR <<END;
dgit: warning: $what contains .gitattributes
# oh dear, found one
print STDERR <<END;
dgit: warning: $what contains .gitattributes
-dgit: .gitattributes have not been defused.
See GITATTRIBUTES in dgit(7)
.
+dgit: .gitattributes have not been defused.
Recommended: dgit setup-new-tree
.
END
close $gafl;
return;
END
close $gafl;
return;
@@
-3601,6
+3601,7
@@
sub clone ($) {
mkdir $dstdir or fail "create \`$dstdir': $!";
changedir $dstdir;
runcmd @git, qw(init -q);
mkdir $dstdir or fail "create \`$dstdir': $!";
changedir $dstdir;
runcmd @git, qw(init -q);
+ setup_new_tree();
clone_set_head();
my $giturl = access_giturl(1);
if (defined $giturl) {
clone_set_head();
my $giturl = access_giturl(1);
if (defined $giturl) {
@@
-3619,7
+3620,6
@@
sub clone ($) {
$vcsgiturl =~ s/\s+-b\s+\S+//g;
runcmd @git, qw(remote add vcs-git), $vcsgiturl;
}
$vcsgiturl =~ s/\s+-b\s+\S+//g;
runcmd @git, qw(remote add vcs-git), $vcsgiturl;
}
- setup_new_tree();
clone_finish($dstdir);
}
clone_finish($dstdir);
}