}
sub rewind_raw () {
- system "mt -f $tape rewind"; $? and die $?;
+ runsystem("mt -f $tape rewind");
}
sub readtapeid_raw () {
"| tar -b$blocksize -vvxf - TAPEID";
}
+sub runsystem ($) {
+ pboth(" $_[0]\n");
+ system $_[0];
+ $? and die $?;
+}
+
sub pboth ($) {
my ($str) = @_;
print LOG $str or die $!;
my ($what) = @_;
$currenttapefilenumber++;
$currenttapefilename= $what;
- pboth(sprintf "writing tape file #%d (mt fsf %d): %s",
+ pboth(sprintf "writing tape file #%d (mt fsf %d): %s\n",
$currenttapefilenumber, $currenttapefilenumber-1, $what);
}