Select Code to Download

$self{qw(error cmd)} = (0, { %tape_cmd, %{$os_specific_cmd{$self{os}}}
+ });

$self{error}=0;
$self{cmd}= { %tape_cmd , %{os_specific_cmd{$self{os}}} };

return
 $self->endofdata
 and $self->backwardspace(1)
 and $self->backwardblock(1);

return
 $self->endofdata
 && $self->backwardspace(1)
 && $self->backwardblock(1);

#!/usr/bin/perl -w
package Device::MagneticTape;
...
}

1;