Imported Upstream version 3.3.1

[debian/amanda] / perl / Amanda / Changer / single.pm

diff --git a/perl/Amanda/Changer/single.pm b/perl/Amanda/Changer/single.pm
index 0edc07dc9dbd118ff62121a5a3bf3cb7eda418a4..75e0469f8d88491d358db2db8315c06562ebec48 100644 (file)
--- a/perl/Amanda/Changer/single.pm
+++ b/perl/Amanda/Changer/single.pm
@@ -166,6 +166,10 @@ sub do_release {
     my $self = shift;
     my %params = @_;
 
+    $self->{'device'}->eject() if (exists $self->{'device'} and
+                                  exists $params{'eject'} and
+                                  $params{'eject'});
+
     $self->{'chg'}->{'reserved'} = 0;
 
     # unref the device, for good measure