chiark / gitweb /
Portability fix: Fix on libcs where st_mtime is not a macro (ie, ones lacking st_mtim.)
[chiark-utils.git] / backup / labeltape
index 98961af..fc3d2b3 100755 (executable)
@@ -19,9 +19,11 @@ while ($ARGV[0] =~ m/^-/) {
     }
 }
 
-@ARGV==1 or die "$0: need 1 arg, new TAPEID";
+@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,8 @@ 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 $!;
 exit 0;