X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FChanger%2Fsingle.pm;h=75e0469f8d88491d358db2db8315c06562ebec48;hb=refs%2Ftags%2Fupstream%2F3.3.1;hp=0edc07dc9dbd118ff62121a5a3bf3cb7eda418a4;hpb=cd0b924f27312d57bd42f6c4fae2b795139e2d0b;p=debian%2Famanda

diff --git a/perl/Amanda/Changer/single.pm b/perl/Amanda/Changer/single.pm
index 0edc07d..75e0469 100644
--- 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