From: sof <unknown>
Date: Fri, 25 Jul 1997 21:12:17 +0000 (+0000)
Subject: [project @ 1997-07-25 21:12:17 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~240
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=985a0b6bf66b9f80d3558123613b2c3a47c9c2ad;p=ghc-hetmet.git

[project @ 1997-07-25 21:12:17 by sof]
With -accept-output, create stdout&stderr dump files if does not exist
---

diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl
index 34f7c1d..55860fd 100644
--- a/glafp-utils/runstdtest/runstdtest.prl
+++ b/glafp-utils/runstdtest/runstdtest.prl
@@ -115,17 +115,27 @@ arg: while ($_ = $ARGV[0]) {
 }
 
 foreach $out_file ( @PgmStdoutFile ) {
-    #$Status++ ,
-    pop(@PgmStdoutFile),
-    print STDERR "$Pgm: warning: expected-output file missing: $out_file\n"
-	if ! -f $out_file;
+    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";
+	}
+    }
 }
 
 foreach $out_file ( @PgmStderrFile ) {
-    #$Status++,
-    pop(@PgmStderrFile),
-    print STDERR "$Pgm: warning: expected-stderr file missing: $out_file\n"
-	if ! -f $out_file;
+    if ( ! -f $out_file ) {
+	#$Status++;
+        pop(@PgmStderrFile);
+	if ( $SaveTmpFile ) {
+	    system("touch $out_file");
+	} else {
+    	    print STDERR "$Pgm: warning: expected-stderr file missing: $out_file\n";
+	}
+    }
 }
 
 exit 1 if $Status;