As we saw in c, it always specifies what is safe with thread, what is unsafe. For example, strtok is unsafe with thread.

Perl does not do this, and this is extreamly dangerous. Of course, it is not a surprise to me, as Perl only started to have this real thread stuff since 5.8. However Perl should start this ASAP, otherwise it will bite everyone.

For example, I found Tie::File is not safe with thread. Try the following code on win32, see how account.txt is messed up.

use Tie::File;

use threads;
use strict;

use constant NUMBER_OF_THREAD => 10;

$|++;

open(ACCOUNT, ">", "account.txt");
foreach (0..NUMBER_OF_THREAD) {
    print ACCOUNT "1000\n";
}
close(ACCOUNT);
tie my @account, "Tie::File", "account.txt" or die "cannot tie\n";

foreach (1..NUMBER_OF_THREAD) {
    my $kid = threads->create(\&thread_job, $_);
    $kid->detach();
}
untie @account;

sub thread_job {
    my $id = shift();
    print "I am a child, this is the name my parents gave me: ", $id, 
+"\n";
    while (1) {
        $account[$id] -= 100;
        $account[$id] += 100;
    }
}
[download]

Foot Notes:

This post is for a general purpose, and it is not about Tie::File. Tie::File is just an example, and is the point where I started to think about this.