diff options
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; |