exec $c; die "$c: $!";
}
+sub rewind_raw () {
+ system "mt -f $tape rewind"; $? and die $?;
+}
+
sub readtapeid_raw () {
open T, ">>TAPEID" or die $!; close T;
unlink 'TAPEID' or die $!;
- system "mt -f $tape rewind"; $? and die $?;
+ rewind_raw();
system "mt -f $tape setblk $blocksizebytes"; $? and die $?;
system "dd if=$tape bs=${blocksize}b count=10 ".
"| tar -b$blocksize -vvxf - TAPEID";