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'};
+       my $finalize = $params{'finalize'};
        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;
+           $finalize->() if defined($finalize);
            goto $orig_cb;
        };