From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Mon, 2 Nov 2009 16:49:31 +0000 (-0500)
Subject: GetClipRect to proper name
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bdbaa48433357ee95ae37aeca0c8b4c7a2f97eb4;p=sdlgit%2FSDL_perl.git

GetClipRect to proper name
---

diff --git a/t/core_surface.t b/t/core_surface.t
index b06529f..8c6e2f8 100644
--- a/t/core_surface.t
+++ b/t/core_surface.t
@@ -27,7 +27,7 @@ is( $surface->w,     640, 'surface has width' );
 is( $surface->h,     320, 'surface has height' );
 is( $surface->pitch, 640, 'surface has pitch' );
 my $clip_rect = SDL::Rect->new( 0, 0, 0, 0 );
-SDL::GetClipRect( $surface, $clip_rect );
+SDL::Video::get_clip_rect( $surface, $clip_rect );
 isa_ok( $clip_rect, 'SDL::Rect' );
 is( $clip_rect->x, 0,   'clip_rect has x' );
 is( $clip_rect->y, 0,   'clip_rect has y' );