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 3ff58a7e156e7bbc2f8f119400c963a58bce5b0e..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 () {
@@
-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);
}