projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4e1f119
)
Cope with recent versions of Perl that lack the $* feature
author
simonpj@microsoft.com
<unknown>
Tue, 2 Sep 2008 10:30:43 +0000
(10:30 +0000)
committer
simonpj@microsoft.com
<unknown>
Tue, 2 Sep 2008 10:30:43 +0000
(10:30 +0000)
utils/runstdtest/runstdtest.prl
patch
|
blob
|
history
diff --git
a/utils/runstdtest/runstdtest.prl
b/utils/runstdtest/runstdtest.prl
index
385a9fb
..
ae1822b
100644
(file)
--- a/
utils/runstdtest/runstdtest.prl
+++ b/
utils/runstdtest/runstdtest.prl
@@
-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 = '';
}