X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=blobdiff_plain;f=backup%2Fbackuplib.pl;fp=backup%2Fbackuplib.pl;h=f8d7349bdec683fa4db009933e3ad33db3f7670d;hp=e80f779ca0a6d77d8988d5ce85800c589a1a1626;hb=b0462536b814ddf1e337379dac850e745f4635dc;hpb=9c7bbbf72f8f61f599b432a787176015997a8678

diff --git a/backup/backuplib.pl b/backup/backuplib.pl
index e80f779..f8d7349 100644
--- a/backup/backuplib.pl
+++ b/backup/backuplib.pl
@@ -64,9 +64,9 @@ sub readtapeid_raw () {
 	   "| tar -b$blocksize -vvxf - TAPEID";
 }
 
-sub writetapeid ($) {
+sub writetapeid ($$) {
     open T, ">TAPEID" or die $!;
-    print T "$_[0]\n" or die $!;
+    print T "$_[0]\n$_[1]\n" or die $!;
     close T or die $!;
 
     system "tar -b$blocksize -vvcf TAPEID.tar TAPEID"; $? and die $?;