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: curl --proto-redir settings: do not use qw() for ...,...
[dgit.git]
/
dgit
diff --git
a/dgit
b/dgit
index 6134f5c7162b159a9f8aa52bda97b5b340cec145..a4c9640475fcfae13a6093631a2012931fc51648 100755
(executable)
--- a/
dgit
+++ b/
dgit
@@
-100,7
+100,7
@@
our $rewritemap = 'dgit-rewrite/map';
our (@git) = qw(git);
our (@dget) = qw(dget);
our (@git) = qw(git);
our (@dget) = qw(dget);
-our (@curl) =
qw(curl
);
+our (@curl) =
(qw(curl --proto-redir), '-all,http,https', qw(-L)
);
our (@dput) = qw(dput);
our (@debsign) = qw(debsign);
our (@gpg) = qw(gpg);
our (@dput) = qw(dput);
our (@debsign) = qw(debsign);
our (@gpg) = qw(gpg);
@@
-2519,7
+2519,7
@@
sub complete_file_from_dsc ($$;$) {
$fi->{Digester}->reset();
$fi->{Digester}->addfile(*F);
F->error and die $!;
$fi->{Digester}->reset();
$fi->{Digester}->addfile(*F);
F->error and die $!;
-
my
$got = $fi->{Digester}->hexdigest();
+ $got = $fi->{Digester}->hexdigest();
return $got eq $fi->{Hash};
};
return $got eq $fi->{Hash};
};