[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 (file)
--- 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;