diff options
| author | Johnny Willemsen <jwillemsen@remedy.nl> | 2022-12-12 16:02:27 +0100 |
|---|---|---|
| committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2022-12-12 16:02:27 +0100 |
| commit | 37a525baec16f7caaa2252394041051c949f301d (patch) | |
| tree | d02343e8d3b24655b082b117d63879ff83e89e7f /TAO/tests/Bug_1628_Regression/run_test.pl | |
| parent | 87e4cdb2c157eb359d394c40115e0e6a91c68920 (diff) | |
| parent | 7f58353152673a611a86843b1db6f9453675d087 (diff) | |
| download | ATCD-37a525baec16f7caaa2252394041051c949f301d.tar.gz | |
Fixed merge conflicts
Diffstat (limited to 'TAO/tests/Bug_1628_Regression/run_test.pl')
| -rwxr-xr-x | TAO/tests/Bug_1628_Regression/run_test.pl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/TAO/tests/Bug_1628_Regression/run_test.pl b/TAO/tests/Bug_1628_Regression/run_test.pl index 7f2c56bbb9f..7ed14a284a6 100755 --- a/TAO/tests/Bug_1628_Regression/run_test.pl +++ b/TAO/tests/Bug_1628_Regression/run_test.pl @@ -1,5 +1,3 @@ - - eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; @@ -48,7 +46,7 @@ if ($server->WaitForFileTimed ($TestCaseC_i, # Body_dup is there, then all the Body_* methods are also there. # $found = 0 ; -open (I_FILE, "$server_TestCaseC_i") ; +open (I_FILE, "$server_TestCaseC_i"); while( <I_FILE> ){ chomp ; if( $_ =~ /Body_dup/ ){ @@ -63,5 +61,4 @@ if( $found != 1 ){ $server->DeleteFile($TestCaseC_i); - exit $status; |