Help for this page

Select Code to Download


  1. or download this
    package test;
     
    ...
    
    ## You have no module termination value,
    1;
    
  2. or download this
    use threads;
    use test;
    ...
    my $thread=threads->create("forthread", ($argument));
    $thread->join();
    exit(0);
    
  3. or download this
    ## test.pl
    use threads;
    ...
    }
    
    1;
    
  4. or download this
    C:\test>test.pl
    1 at Testit.pm line 11.
    Attempt to free unreferenced scalar: SV 0x194aa50, Perl interpreter: 0
    +x18290c4 during global destruction.
    
  5. or download this
    use threads;
    use Testit;
    ...
    __END__
    C:\test>test.pl
    1 at Testit.pm line 11.