Problem calling two perl modules from java in seperate threads(JVM CRASHES)

Question

Dear Friends,
I have one severe problem regarding calling perl modules from java
I had to call two perl modules simultaneously (i.e.) from two threads,,, but jvm crashes when one of the perl calls is exiting earlier
I am unable to spot out why ....
For calling perl from java ...., We are first calling C code from java using JNI and then Perl code from C
All works fine if we call only one perl call at a time.... If we call them in a synchronized manner the JVM is not crashing .... But we don't want blocking..
The following is the code snippet
<JAVA FILE>
class Sample
     static {
          System.loadLibrary("xyz");  // Here xyz is the library file generated by compiling c code
     public native void call_PrintList();
     public native void call_PrintListNew();
     Sample()
          new Thread1(this).start();     
     public static void main(String args[])
          System.out.println("In the main Method");
          new Sample().call_PrintList();
     class Thread1 extends Thread
          Sample sample;
          Thread1(Sample sam)
               sample=sam;
          public void run()
               sample.call_PrintListNew();     
}<C FILE>
#include <EXTERN.h>
#include <perl.h>
static PerlInterpreter *my_perl;
static char * words[] = {"alpha", "beta", "gamma", "delta", NULL } ;
static void
call_PrintList(){
     printf("\nIn the Call method of string.c\n");
        char *wor[] = {"hello", "sudha", NULL } ;
           char *my_argv[] = { "", "string.pl" };
           PERL_SYS_INIT3(&argc,&argv,&env);
           my_perl = perl_alloc();
               PL_perl_destruct_level = 1; //// We have mentioned this also and tried removing destruct call
           perl_construct( my_perl );
           perl_parse(my_perl, NULL, 2, my_argv, (char**)NULL);
          PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
           perl_run(my_perl);
     dSP ;
        perl_call_argv("PrintList",  G_DISCARD, wor) ;
PL_perl_destruct_level = 1;
//     perl_destruct(my_perl);
//          perl_free(my_perl);
//           PERL_SYS_TERM();
static void
call_PrintListNew(){
printf("In the new call method\n");
char *wor[] = {"Hiiiiiiiiiiiiiii", "Satyam123333", NULL } ;
        char *my_argv[] = { "", "string.pl" };
        PERL_SYS_INIT3(&argc,&argv,&env);
        my_perl = perl_alloc();
PL_perl_destruct_level = 1;
        perl_construct( my_perl );
        perl_parse(my_perl, NULL, 2, my_argv, (char**)NULL);
        PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
        perl_run(my_perl);
        dSP ;
        perl_call_argv("PrintListNew",  G_DISCARD, wor) ;
PL_perl_destruct_level = 1;
  //      perl_destruct(my_perl);
  //      perl_free(my_perl);
   //     PERL_SYS_TERM();
void callNew()
call_PrintListNew();
void call ( )
call_PrintList();
//char *wor[] = {"hello","sudha",NULL};
/*   char *my_argv[] = { "", "string.pl" };
      PERL_SYS_INIT3(&argc,&argv,&env);
      my_perl = perl_alloc();
      perl_construct( my_perl );
      perl_parse(my_perl, NULL, 2, my_argv, (char**)NULL);
     PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
      perl_run(my_perl);*/
   //   call_PrintList();                      /*** Compute 3 ** 4 ***/
/*      perl_destruct(my_perl);
      perl_free(my_perl);
      PERL_SYS_TERM();*/
    }And Finally the perl code
sub PrintList
            my(@list) = @_ ;
            foreach (@list) { print "$_\n" }
sub PrintListNew
            my(@list) = @_ ;
            foreach (@list) { print "$_\n" }
        }Please help me in this regard

Answer 1

Dear Friends,
I have one severe problem regarding calling perl modules from java
I had to call two perl modules simultaneously (i.e.) from two threads,,, but jvm crashes when one of the perl calls is exiting earlier
I am unable to spot out why ....
For calling perl from java ...., We are first calling C code from java using JNI and then Perl code from C
All works fine if we call only one perl call at a time.... If we call them in a synchronized manner the JVM is not crashing .... But we don't want blocking..
The following is the code snippet
<JAVA FILE>
class Sample
     static {
          System.loadLibrary("xyz");  // Here xyz is the library file generated by compiling c code
     public native void call_PrintList();
     public native void call_PrintListNew();
     Sample()
          new Thread1(this).start();     
     public static void main(String args[])
          System.out.println("In the main Method");
          new Sample().call_PrintList();
     class Thread1 extends Thread
          Sample sample;
          Thread1(Sample sam)
               sample=sam;
          public void run()
               sample.call_PrintListNew();     
}<C FILE>
#include <EXTERN.h>
#include <perl.h>
static PerlInterpreter *my_perl;
static char * words[] = {"alpha", "beta", "gamma", "delta", NULL } ;
static void
call_PrintList(){
     printf("\nIn the Call method of string.c\n");
        char *wor[] = {"hello", "sudha", NULL } ;
           char *my_argv[] = { "", "string.pl" };
           PERL_SYS_INIT3(&argc,&argv,&env);
           my_perl = perl_alloc();
               PL_perl_destruct_level = 1; //// We have mentioned this also and tried removing destruct call
           perl_construct( my_perl );
           perl_parse(my_perl, NULL, 2, my_argv, (char**)NULL);
          PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
           perl_run(my_perl);
     dSP ;
        perl_call_argv("PrintList",  G_DISCARD, wor) ;
PL_perl_destruct_level = 1;
//     perl_destruct(my_perl);
//          perl_free(my_perl);
//           PERL_SYS_TERM();
static void
call_PrintListNew(){
printf("In the new call method\n");
char *wor[] = {"Hiiiiiiiiiiiiiii", "Satyam123333", NULL } ;
        char *my_argv[] = { "", "string.pl" };
        PERL_SYS_INIT3(&argc,&argv,&env);
        my_perl = perl_alloc();
PL_perl_destruct_level = 1;
        perl_construct( my_perl );
        perl_parse(my_perl, NULL, 2, my_argv, (char**)NULL);
        PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
        perl_run(my_perl);
        dSP ;
        perl_call_argv("PrintListNew",  G_DISCARD, wor) ;
PL_perl_destruct_level = 1;
  //      perl_destruct(my_perl);
  //      perl_free(my_perl);
   //     PERL_SYS_TERM();
void callNew()
call_PrintListNew();
void call ( )
call_PrintList();
//char *wor[] = {"hello","sudha",NULL};
/*   char *my_argv[] = { "", "string.pl" };
      PERL_SYS_INIT3(&argc,&argv,&env);
      my_perl = perl_alloc();
      perl_construct( my_perl );
      perl_parse(my_perl, NULL, 2, my_argv, (char**)NULL);
     PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
      perl_run(my_perl);*/
   //   call_PrintList();                      /*** Compute 3 ** 4 ***/
/*      perl_destruct(my_perl);
      perl_free(my_perl);
      PERL_SYS_TERM();*/
    }And Finally the perl code
sub PrintList
            my(@list) = @_ ;
            foreach (@list) { print "$_\n" }
sub PrintListNew
            my(@list) = @_ ;
            foreach (@list) { print "$_\n" }
        }Please help me in this regard