show core dump status clearly

diff --git a/tests/TESTonce b/tests/TESTonce
index 72be028fba9a153ad1d79f0322ca9af40409156a..79336b4d9c741b9f6a483775cc6bd9e5bf7bbc0c 100755 (executable)
--- a/tests/TESTonce
+++ b/tests/TESTonce
@@ -32,6 +32,8 @@ else {
     # to be set properly if the tcpdump core dumps.
     $r = system "$TCPDUMP 2>/dev/null -# -n -r $input $options >NEW/$outputbase";
     if($r != 0) {
     # to be set properly if the tcpdump core dumps.
     $r = system "$TCPDUMP 2>/dev/null -# -n -r $input $options >NEW/$outputbase";
     if($r != 0) {

+        my $coredump = false;
+        my $status = 0;

         # this means tcpdump failed.
         open(OUTPUT, ">>"."NEW/$outputbase") || die "fail to open $outputbase\n";
         if( $r & 128 ) {
         # this means tcpdump failed.
         open(OUTPUT, ">>"."NEW/$outputbase") || die "fail to open $outputbase\n";
         if( $r & 128 ) {