From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Tue, 1 Sep 2009 02:21:31 +0000 (-0400)
Subject: Can load and boot but stuck at NewRect
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=be5d46645f4f9c2b5a59d4c499b179a7e3e15f11;p=sdlgit%2FSDL_perl.git

Can load and boot but stuck at NewRect
---

diff --git a/exp/SDL/Rect/lib/SDL/Rect.pm b/exp/SDL/Rect/lib/SDL/Rect.pm
index 6ad6abd..c0c02e5 100644
--- a/exp/SDL/Rect/lib/SDL/Rect.pm
+++ b/exp/SDL/Rect/lib/SDL/Rect.pm
@@ -7,7 +7,7 @@ use strict;
     require Exporter;
     require DynaLoader;
     @ISA = qw(Exporter DynaLoader);
-    @EXPORT = qw(RectX RectY RectW RectH);
+    @EXPORT = qw( NewRect RectX RectY RectW RectH);
     
    
 
@@ -30,10 +30,6 @@ See Also   :
 
 #################### subroutine header end ####################
 
-sub new
-{
-	return NewRect();
-}
 
 
 #################### main pod documentation begin ###################
diff --git a/exp/SDL/Rect/src/Rect.xs b/exp/SDL/Rect/src/Rect.xs
index 607c675..ef2b278 100644
--- a/exp/SDL/Rect/src/Rect.xs
+++ b/exp/SDL/Rect/src/Rect.xs
@@ -10,7 +10,7 @@
 
 
 
-MODULE = SDL 	PACKAGE = Rect
+MODULE = SDL::Rect 	PACKAGE = Rect
 PROTOTYPES: DISABLE
 
 
@@ -65,7 +65,7 @@ RectH ( rect, ... )
 	OUTPUT:
 		RETVAL
 
-MODULE = SDL  PACKAGE = SDL_RectPtr  PREFIX = Rect_
+MODULE = SDL::Rect  PACKAGE = SDL_RectPtr  PREFIX = Rect_
 
 void
 Rect_DESTROY(rect)
diff --git a/exp/SDL/Rect/t/001_load.t b/exp/SDL/Rect/t/001_load.t
index 0e3daed..6be37ec 100644
--- a/exp/SDL/Rect/t/001_load.t
+++ b/exp/SDL/Rect/t/001_load.t
@@ -6,7 +6,7 @@ use Test::More tests => 2;
 
 BEGIN { use_ok( 'SDL::Rect' ); }
 
-my $object = new ();
+my $object = SDL::Rect->NewRect(0,0,0,0);
 isa_ok ($object, 'SDL::Rect');