need to return values of Rect* and so on

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

diff --git a/lib/SDL/Rect.pm b/lib/SDL/Rect.pm
index 6c91762..ea1c144 100644 (file)
--- a/lib/SDL/Rect.pm
+++ b/lib/SDL/Rect.pm
@@ -22,45 +22,45 @@ bootstrap SDL::Rect;
 # would be another call and rects are a time-critical object.
 sub left {
        my $self = shift;
-       RectX($self,@_);
+       return RectX($self,@_);
 }
 
 sub x {
        my $self = shift;
-       RectX($self,@_);
+       return RectX($self,@_);
 }
 
 ### TODO: see 'left' above (this is an 'alias' to sub y)
 sub top {
        my $self = shift;
-       RectY($self,@_);
+       return RectY($self,@_);
 }
 
 sub y {
        my $self = shift;
-       RectY($self,@_);
+       return RectY($self,@_);
 }
 
 ### TODO: see 'left' above (this is an 'alias' to sub width)
 sub w {
        my $self = shift;
-       RectW($self,@_);
+       return RectW($self,@_);
 }
 
 sub width {
        my $self = shift;
-       RectW($self,@_);
+       return RectW($self,@_);
 }
 
 ### TODO: see 'left' above (this is an 'alias' to sub height)
 sub h {
        my $self = shift;
-       RectH($self,@_);
+       return RectH($self,@_);
 }
 
 sub height {
        my $self = shift;
-       RectH($self,@_);
+       return RectH($self,@_);
 }