From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Thu, 5 Nov 2009 17:23:14 +0000 (-0500)
Subject: Added ActiveEvent to Build.PL
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fb4fb809bfc5948024c7fccbe3900911919e346a;p=sdlgit%2FSDL_perl.git

Added ActiveEvent to Build.PL
---

diff --git a/Build.PL b/Build.PL
index c9c2284..a6dfd32 100644
--- 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
--- 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__