chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
run i_cleanup unconditionall
[dgit.git]
/
dgit
diff --git
a/dgit
b/dgit
index 31e57c5b9a3e2f5e0d47332a85d28fcc288256e8..2972a9ece86a8e52db94e2bf73fe7e8734e2493b 100755
(executable)
--- a/
dgit
+++ b/
dgit
@@
-1113,7
+1113,7
@@
sub push_parse_changelog ($) {
my ($clogpfn) = @_;
my $clogp = Dpkg::Control::Hash->new();
my ($clogpfn) = @_;
my $clogp = Dpkg::Control::Hash->new();
- $clogp->load($clogpfn);
+ $clogp->load($clogpfn)
or die
;
$package = getfield $clogp, 'Source';
my $cversion = getfield $clogp, 'Version';
$package = getfield $clogp, 'Source';
my $cversion = getfield $clogp, 'Version';
@@
-1439,6
+1439,8
@@
sub i_cleanup {
eval { rmtree $i_tmp; };
}
eval { rmtree $i_tmp; };
}
+END { i_cleanup(); }
+
sub i_method {
my ($base,$selector,@args) = @_;
$selector =~ s/\-/_/g;
sub i_method {
my ($base,$selector,@args) = @_;
$selector =~ s/\-/_/g;
@@
-1531,7
+1533,7
@@
sub i_localname_parsed_changelog { return "remote-changelog.822"; }
sub i_localname_changes { return "remote.changes"; }
sub i_localname_dsc {
($i_clogp, $i_version, $i_tag, $i_dscfn) =
sub i_localname_changes { return "remote.changes"; }
sub i_localname_dsc {
($i_clogp, $i_version, $i_tag, $i_dscfn) =
- push_parse_changelog
'remote-changelog.822'
;
+ push_parse_changelog
"$i_tmp/remote-changelog.822"
;
die if $i_dscfn =~ m#/|^\W#;
return $i_dscfn;
}
die if $i_dscfn =~ m#/|^\W#;
return $i_dscfn;
}