chiark
/
gitweb
/
~ian
/
chiark-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixes from tests before big run
[chiark-utils.git]
/
backup
/
labeltape
diff --git
a/backup/labeltape
b/backup/labeltape
index c06d897a7bdf7415642365ab6c0ab086b34a310f..fc3d2b388b4bbab50b43484f7808b1a091ac7d31 100755
(executable)
--- a/
backup/labeltape
+++ b/
backup/labeltape
@@
-22,6
+22,8
@@
while ($ARGV[0] =~ m/^-/) {
@ARGV==1 or die "$0: need 1 arg, new TAPEID\n";
($newid)= @ARGV;
@ARGV==1 or die "$0: need 1 arg, new TAPEID\n";
($newid)= @ARGV;
+open LOG, ">/dev/null" or die $!;
+
readtapeid_raw();
if (!open T,'TAPEID') {
readtapeid_raw();
if (!open T,'TAPEID') {
@@
-37,7
+39,7
@@
open T,'>TAPEID' or die $!;
print T "$newid\n" or die $!;
close T or die $!;
print T "$newid\n" or die $!;
close T or die $!;
-writetapeid($newid);
+writetapeid($newid
,'tapeid set manually'
);
rewind_raw();
print "Labelled tape \`$newid'\n" or die $!;
rewind_raw();
print "Labelled tape \`$newid'\n" or die $!;