POPFile/TestCodeForForkingProblem

echo %ERRORLEVEL%

#!/usr/bin/perl
 
 use strict;
 use POPFile::Mutex;
 
 my $kakasi_mutex = new POPFile::Mutex( 'mailparse_kakasi' );
 
 for (1..3) {
     my $pid = fork();
     
     if ($pid != 0) {
         next;
     } else {
         for (1..1000) {
             kakasi_test();
         }
         last;
     }
 }
 
 sub kakasi_test {
     my $line = "POPFile はベイズ推定を利用して電子メールを自動的に分類する " .
         "POP3 プロキシー、および Web インターフェースで、強力なスパムフィルター" .
         "としても威力を発揮します。ほとんどどのプラットフォームでも、どのメール" .
         "クライアントとも動作します。 ";
     
     use Text::Kakasi;
     
     $kakasi_mutex->acquire();
     
     log_("Text::Kakasi start.");
     
     Text::Kakasi::getopt_argv("kakasi", "-w -ieuc -oeuc");
     $line = Text::Kakasi::do_kakasi($line);
     Text::Kakasi::close_kanwadict();
     
     $kakasi_mutex->release();
     
     log_("Text::Kakasi done.");
 }
 
 sub log_ {
     my ($msg) = $_;
     
     print STDERR "$$: $msg\n";
 }

Test code for check the Forking Problem with Kakasi

What is the test code?

• This test code will check the Mutex solve the Forking Problem with Kakasi.
• This code will create three child (pseudo-)process by fork() and in every child process, do Kakasi's "Wakachi-gaki" 1000 times.
• If the Mutex works correctly, no error occurs. But sometimes this code crashes.

How to use the test code?

• Download POPFile 0.22.2 RC2 from [POPFile forum]
• Save the following code in the POPFile main directory.
• Execute the code (i.e. perl fork_test.pl (if you saved the code as 'fork_test.pl')).
• Type below command to see the exit code of perl.exe:
  

  echo %ERRORLEVEL%

• If any error occured, you'll see the exit code '-1073741819' ('0' if no error occured).

The test code

#!/usr/bin/perl

use strict;
use POPFile::Mutex;

my $kakasi_mutex = new POPFile::Mutex( 'mailparse_kakasi' );

for (1..3) {
    my $pid = fork();
    
    if ($pid != 0) {
        next;
    } else {
        for (1..1000) {
            kakasi_test();
        }
        last;
    }
}

sub kakasi_test {
    my $line = "POPFile はベイズ推定を利用して電子メールを自動的に分類する " .
        "POP3 プロキシー、および Web インターフェースで、強力なスパムフィルター" .
        "としても威力を発揮します。ほとんどどのプラットフォームでも、どのメール" .
        "クライアントとも動作します。 ";
    
    use Text::Kakasi;
    
    $kakasi_mutex->acquire();
    
    log_("Text::Kakasi start.");
    
    Text::Kakasi::getopt_argv("kakasi", "-w -ieuc -oeuc");
    $line = Text::Kakasi::do_kakasi($line);
    Text::Kakasi::close_kanwadict();
    
    $kakasi_mutex->release();
    
    log_("Text::Kakasi done.");
}

sub log_ {
    my ($msg) = $_;
    
    print STDERR "$$: $msg\n";
}

The log

The code will output a log. Here is a example:

 -1252:Text::Kakasi start.
 -1252:Text::Kakasi done.
 -1252:Text::Kakasi start.
 -1252:Text::Kakasi done.
 -1252:Text::Kakasi start.
 -748:Text::Kakasi start.
 -748:Text::Kakasi done.

The log shows that Text::Kakasi of the process -748 started before the process -1252 had done. Then, perl.exe crashed.