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_TEST_DEBUG: Improve plumbing and honour in policy hook. Also honour $dgitlive
[dgit.git]
/
dgit
diff --git
a/dgit
b/dgit
index 3a79bb60b1a5bd7b884bbc91330908efa36a9a43..1f1c425d1f95eaded35208faa49946c9b080b0de 100755
(executable)
--- a/
dgit
+++ b/
dgit
@@
-18,6
+18,7
@@
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use strict;
# along with this program. If not, see <http://www.gnu.org/licenses/>.
use strict;
+$SIG{__WARN__} = sub { die $_[0]; };
use IO::Handle;
use Data::Dumper;
use IO::Handle;
use Data::Dumper;
@@
-1503,8
+1504,8
@@
sub clone ($) {
}
fetch_from_archive() or no_such_package;
my $vcsgiturl = $dsc->{'Vcs-Git'};
}
fetch_from_archive() or no_such_package;
my $vcsgiturl = $dsc->{'Vcs-Git'};
- $vcsgiturl =~ s/\s+-b\s+\S+//g;
if (length $vcsgiturl) {
if (length $vcsgiturl) {
+ $vcsgiturl =~ s/\s+-b\s+\S+//g;
runcmd @git, qw(remote add vcs-git), $vcsgiturl;
}
runcmd @git, qw(reset --hard), lrref();
runcmd @git, qw(remote add vcs-git), $vcsgiturl;
}
runcmd @git, qw(reset --hard), lrref();