Select Code to Download

#! perl -slw
use strict;
...

__END__

package cback_test;
...

1;

Here in thread1..calling CCB2
Time in C-Callback2: 1289205658.  Prior ctx 0d
Use of inherited AUTOLOAD for non-method main::1289205658() is depreca
+ted at cback_test3.pl line 137.
Segmentation fault

#include "EXTERN.h"
#include "perl.h"
...
    OUTPUT:
       RETVAL

#! /usr/local/bin/perl
...
print "CB2 was invoked : $cb_done2\n";
print "results are : @results \n";

Registering CB1...
orig_ctx is 151171080d
...
invoking 151189632d
Undefined subroutine &main::1 called at test.pl line 42.
make: *** [test_dynamic] Error 255