X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=blobdiff_plain;f=backup%2Flabeltape;h=fc3d2b388b4bbab50b43484f7808b1a091ac7d31;hp=c06d897a7bdf7415642365ab6c0ab086b34a310f;hb=83d48f5254c0d9c7e3cbeaaec33459bb8398638f;hpb=411308a50c3cbc923513c18f876bf88909bd7786

diff --git a/backup/labeltape b/backup/labeltape
index c06d897..fc3d2b3 100755
--- 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;
 
+open LOG, ">/dev/null" or die $!;
+
 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 $!;
 
-writetapeid($newid);
+writetapeid($newid,'tapeid set manually');
 rewind_raw();
 
 print "Labelled tape \`$newid'\n" or die $!;