Commit ead14fa4 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com

Cope with recent versions of Perl that lack the $* feature

parent 4e1f1196
......@@ -198,9 +198,10 @@ if ($PostScript ne '') {
local($to_do);
$PostScriptLines = `cat $PostScript`;
$PostScriptLines =~ s/\r//g;
$* = 1;
$PostScriptLines =~ s#\$o1#$TmpPrefix/runtest$$.1#g;
$PostScriptLines =~ s#\$o2#$TmpPrefix/runtest$$.2#g;
$PostScriptLines =~ s#\$o1#$TmpPrefix/runtest$$.1#gm;
$PostScriptLines =~ s#\$o2#$TmpPrefix/runtest$$.2#gm;
# The postfix 'm' deals with recent versions of
# Perl that removed the $* feature
} else {
$PostScriptLines = '';
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment