xref: /openbsd/gnu/usr.bin/perl/lib/perl5db/t/rt-124203b (revision f3efcd01) 
1*f3efcd01Safresh1use threads;
2*f3efcd01Safresh1print "PID $$\n";
3*f3efcd01Safresh1my $x;
4*f3efcd01Safresh1sub sub1 {
5*f3efcd01Safresh1  print("In the thread\n");
6*f3efcd01Safresh1}
7*f3efcd01Safresh1sub foo:lvalue {
8*f3efcd01Safresh1  my $thr = threads->create(\&sub1);
9*f3efcd01Safresh1  $thr->join;
10*f3efcd01Safresh1  $x;
11*f3efcd01Safresh1}
12*f3efcd01Safresh1foo() = "One";
13*f3efcd01Safresh1print "Finished $x\n";
14