[project @ 1997-12-19 12:22:57 by simonm]

[ghc-hetmet.git] / glafp-utils / runstdtest / runstdtest.prl

diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl
index 34f7c1d..cb9084b 100644 (file)
--- a/glafp-utils/runstdtest/runstdtest.prl
+++ b/glafp-utils/runstdtest/runstdtest.prl
@@ -115,17 +115,23 @@ 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++;
+       print STDERR "$Pgm: warning: expected-stdout file missing: $out_file\n";
+       pop(@PgmStdoutFile);
+    }
 }
 
 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;