From: simonm <unknown>
Date: Tue, 25 Nov 1997 11:50:17 +0000 (+0000)
Subject: [project @ 1997-11-25 11:50:17 by simonm]
X-Git-Tag: Approx_2487_patches~1239
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=581bd3121595f3053ec6fece996a64f762fa7881;p=ghc-hetmet.git

[project @ 1997-11-25 11:50:17 by simonm]
Don't try to generate stdout files if using -accept-output.  It didn't
work anyway: a call to pop had stomped on the variable containing the
filename before it was used, setting it to the empty string.  The call
to touch then failed with a syntax error.

This behaviour seems more useful: sometimes you really don't want to
check the stdout and/or stderr, so you just don't create the file.
---

diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl
index 55860fd..cb9084b 100644
--- a/glafp-utils/runstdtest/runstdtest.prl
+++ b/glafp-utils/runstdtest/runstdtest.prl
@@ -117,12 +117,8 @@ arg: while ($_ = $ARGV[0]) {
 foreach $out_file ( @PgmStdoutFile ) {
     if ( ! -f $out_file ) {
         #$Status++;
-        pop(@PgmStdoutFile);
-	if ( $SaveTmpFile ) {
-	    system("touch $out_file");
-	} else {
-    	    print STDERR "$Pgm: warning: expected-stdout file missing: $out_file\n";
-	}
+    	print STDERR "$Pgm: warning: expected-stdout file missing: $out_file\n";
+	pop(@PgmStdoutFile);
     }
 }