From 985a0b6bf66b9f80d3558123613b2c3a47c9c2ad Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 25 Jul 1997 21:12:17 +0000
Subject: [PATCH] [project @ 1997-07-25 21:12:17 by sof] With -accept-output,
create stdout&stderr dump files if does not exist
---
glafp-utils/runstdtest/runstdtest.prl | 26 ++++++++++++++++++--------
1 file changed, 18 insertions(+), 8 deletions(-)
diff --git a/glafp-utils/runstdtest/runstdtest.prl b/glafp-utils/runstdtest/runstdtest.prl
index 34f7c1d9d4fb..55860fd4d6f2 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;
--
GitLab