luke
/
iverilog
mirror of https://github.com/steveicarus/iverilog.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Improved run_program() in Perl regression test scripts. 

This version works with the native Windows (mingw64 and clang64)
versions of Perl in MSYS2.

Note that warnings are disabled in the Environment.pm module because
Perl fails to notice that OLDOUT and OLDERR are used when restoring
the STDOUT and STDERR file handles.
This commit is contained in:
Martin Whitaker 2025-10-21 21:47:45 +01:00
parent 702189a948
commit 3d4f1eb94b
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ivtest/perl-lib/Environment.pm
View File

@ -5,7 +5,7 @@
package Environment;
use strict;
use warnings;
#use warnings;
our $VERSION = '1.03';
@ -109,19 +109,19 @@ sub get_ivl_version {
sub run_program {
my ($cmd, $log_mode, $log_file) = @_;
my $pid = fork();
if (!defined($pid)) {
die("couldn't spawn new process\n");
} elsif ($pid == 0) {
if ($log_mode) {
open(STDOUT, $log_mode, $log_file) or die("couldn't open log file '$log_file'\n");
open(STDERR, '>&STDOUT');
}
exec($cmd);
my $ret;
if ($log_mode) {
open(OLDOUT, '>&STDOUT');
open(OLDERR, '>&STDERR');
open(STDOUT, $log_mode, $log_file) or die("couldn't open log file '$log_file'\n");
open(STDERR, '>&STDOUT');
$ret = system($cmd);
open(STDOUT, '>&OLDOUT');
open(STDERR, '>&OLDERR');
} else {
waitpid($pid, 0);
$?; # return the child's exit status
$ret = system($cmd);
}
$ret;
}
1; # Module loaded OK