Fixed ignore

[sdlgit/SDL_perl.git] / exp / SDL / Rect / lib / SDL / Rect.pm

diff --git a/exp/SDL/Rect/lib/SDL/Rect.pm b/exp/SDL/Rect/lib/SDL/Rect.pm
index 6ad6abd..77cd108 100644 (file)
--- a/exp/SDL/Rect/lib/SDL/Rect.pm
+++ b/exp/SDL/Rect/lib/SDL/Rect.pm
@@ -2,12 +2,11 @@ package SDL::Rect;
 use strict;
 
 
-    use vars qw($VERSION @ISA @EXPORT);
+    use vars qw($VERSION @ISA);
     $VERSION     = '0.01';
-    require Exporter;
     require DynaLoader;
-    @ISA = qw(Exporter DynaLoader);
-    @EXPORT = qw(RectX RectY RectW RectH);
+    @ISA = qw(DynaLoader);
+    
     
    
 
@@ -32,9 +31,12 @@ See Also   :
 
 sub new
 {
-       return NewRect();
-}
+       my $self = shift;
+       my ($x, $y, $w, $h) = @_;
+       $self = \SDL::Rect::NewRect($x, $y, $w, $h);
 
+       return $self;
+}
 
 #################### main pod documentation begin ###################
 ## Below is the stub of documentation for your module. 
@@ -97,8 +99,7 @@ perl(1).
 
 #################### main pod documentation end ###################
 
-bootstrap SDL::Rect $VERSION;
-
+bootstrap SDL::Rect; 
 1;
 # The preceding line will help the module return a true value