Added ActiveEvent to Build.PL

diff --git a/Build.PL b/Build.PL
index c9c2284..a6dfd32 100644 (file)
--- a/Build.PL
+++ b/Build.PL
@@ -49,6 +49,13 @@ my %subsystems =
                },
                libraries => [qw( SDL )],
        },
+       ActiveEvent => {
+               file      => {
+                       from  => 'src/Core/objects/ActiveEvent.xs',
+                       to    => 'lib/SDL/ActiveEvent.xs',
+               },
+               libraries => [qw( SDL )],
+       },
        MultiThread => {
                file      => {
                        from  => 'src/Core/MultiThread.xs',

diff --git a/scripts/MultiThreadPOC.pl b/scripts/MultiThreadPOC.pl
index 8c46eaa..d37edbc 100644 (file)
--- a/scripts/MultiThreadPOC.pl
+++ b/scripts/MultiThreadPOC.pl
@@ -6,7 +6,7 @@ my $fp = get_function_pointer();
 print '[Perl] In perl we got :'.$fp."\n";
 print '[Perl] Making Thread.';
 
-make_thread( $fp, 'I AM THE OVERLOARD XENU!!!');
+make_thread( get_function_pointer() , 'I AM THE OVERLOARD XENU!!!');
 
 __END__    
 __C__