From: rrt <unknown>
Date: Mon, 1 Oct 2001 13:13:38 +0000 (+0000)
Subject: [project @ 2001-10-01 13:13:38 by rrt]
X-Git-Tag: Approximately_9120_patches~888
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0635d22ff557b797b6b07276c0785d13c821fee2;p=ghc-hetmet.git

[project @ 2001-10-01 13:13:38 by rrt]
Get rid of \rs at the end of lines in prescripts and postscripts to
work around Windows dodginess.
---

diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl
index f53de4f..1d62fc9 100644
--- a/glafp-utils/runstdtest/runstdtest.prl
+++ b/glafp-utils/runstdtest/runstdtest.prl
@@ -174,6 +174,7 @@ if ( $SysSpecificTiming =~ /^ghc/ ) {
 if ($PreScript ne '') {
     local($to_do);
     $PreScriptLines = `cat $PreScript`;
+    $PreScriptLines =~ s/\r//g;
 } else {
     $PreScriptLines = '';
 }
@@ -181,6 +182,7 @@ if ($PreScript ne '') {
 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;