Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
expect-quit noplease s/please-upload/plunk/ 'tag missing please-upload'
+# we do this now because we are about to generate a broken tag
+t-fscks
+
+next-mangle badtagger
+git cat-file tag test-dummy/1.0-1 | perl -pe '
+ s/\+\d+$/xyz/ if m/^tagger /;
+ exit 0 if m/^$/;
+' >../tagobj-$ident
+echo >>../tagobj-$ident
+cat ../basetag >>../tagobj-$ident
+git update-ref $tagname $(git hash-object -w -t tag ../tagobj-$ident)
+
+cd ..
+rm -rf $p
+
t-ok