diff options
author | oci <oci@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-08-28 15:40:07 +0000 |
---|---|---|
committer | oci <oci@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-08-28 15:40:07 +0000 |
commit | 8fcbbe7c66c0ba3dcfd4abb8439463ff687ee827 (patch) | |
tree | da4bded966eac18fbc37de669cdacf0b4fc9ce37 /bin/perltest2cpp.pl | |
parent | 8ebe1e8a524c9e3a20642adca10f5f761d3e03a3 (diff) | |
download | ATCD-8fcbbe7c66c0ba3dcfd4abb8439463ff687ee827.tar.gz |
ChangeLogTag: Tue Aug 28 10:36:10 2001 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'bin/perltest2cpp.pl')
-rwxr-xr-x | bin/perltest2cpp.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bin/perltest2cpp.pl b/bin/perltest2cpp.pl index e9627fe7746..9e29424e843 100755 --- a/bin/perltest2cpp.pl +++ b/bin/perltest2cpp.pl @@ -284,7 +284,7 @@ sub getTop { $declared{$os} = "%s"; $decscope{$os} = -1; - + foreach my $main (getMainList()) { $top .= "TEST_MAIN_FUNC_DECLARE($main);\n"; } @@ -1578,7 +1578,7 @@ sub handlePrint { } $value = handleEmbeddedVar($value); - + if (defined $stream) { $line = "ACE_OS::fprintf($stream, $value);"; } @@ -1637,7 +1637,7 @@ sub handleWaitKill { $var = $1; } } - if ($line =~ /->.*Kill\s*\(([\w\$]*)\)/) { + if ($line =~ /->.*Kill\s*\(([\w\$]*)\)/) { my($time) = $var . "Timeout"; my($val) = ($1 eq "" ? $defaultTimeout : $1); if (!defined $declared{$time}) { |