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
@@ -2,7 +2,7 @@
[chiark-utils.git]
/
backup
/
labeltape
diff --git
a/backup/labeltape
b/backup/labeltape
index 98961af003839ec3eb90e5f617ed02fa59519d79..c06d897a7bdf7415642365ab6c0ab086b34a310f 100755
(executable)
--- a/
backup/labeltape
+++ b/
backup/labeltape
@@
-19,7
+19,7
@@
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;
readtapeid_raw();
@@
-38,6
+38,7
@@
print T "$newid\n" or die $!;
close T or die $!;
writetapeid($newid);
+rewind_raw();
print "Labelled tape \`$newid'\n" or die $!;
exit 0;