projects
/
debian
/
amanda
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Imported Upstream version 3.3.0
[debian/amanda]
/
perl
/
Amanda
/
MainLoop.swg
diff --git
a/perl/Amanda/MainLoop.swg
b/perl/Amanda/MainLoop.swg
index 40c5c05407555d5c6e09de97495ce17acd781fbd..6b66c457b09f18d771e6b02a8978cc7116207a04 100644
(file)
--- a/
perl/Amanda/MainLoop.swg
+++ b/
perl/Amanda/MainLoop.swg
@@
-262,6
+262,7
@@
push @EXPORT_OK, "synchronized";
sub define_steps (@) {
my (%params) = @_;
my $cb_ref = $params{'cb_ref'};
sub define_steps (@) {
my (%params) = @_;
my $cb_ref = $params{'cb_ref'};
+ my $finalize = $params{'finalize'};
my %steps;
croak "cb_ref is undefined" unless defined $cb_ref;
my %steps;
croak "cb_ref is undefined" unless defined $cb_ref;
@@
-276,6
+277,7
@@
push @EXPORT_OK, "synchronized";
$$cb_ref = sub {
%steps = ();
$current_steps = undef;
$$cb_ref = sub {
%steps = ();
$current_steps = undef;
+ $finalize->() if defined($finalize);
goto $orig_cb;
};
goto $orig_cb;
};