No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
print or die $!;
' ../basetag
print or die $!;
' ../basetag
+next-mangle () {
+ mv ../tagupl/overall.log ../tagupl/overall.log-$ident
+ ident=$1
+}
+
with-mangled () {
local perl=$1
perl <../basetag >../badtag-$ident -pe "$perl"
with-mangled () {
local perl=$1
perl <../basetag >../badtag-$ident -pe "$perl"
- mv ../tagupl/overall.log ../tagupl/overall.log-$ident
- ident=$1
local perl=$2
local mstring=$3
with-mangled "$perl"
local perl=$2
local mstring=$3
with-mangled "$perl"