X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcore_overlay.t;h=f385ad213a0ad260f84d1892b3b2ae2239dea516;hb=HEAD;hp=38cb83a41e705624f6b524daff56575b9c1d2b84;hpb=0e58367517ebdb65bd69199e0cc4cce62ab095cb;p=sdlgit%2FSDL_perl.git

diff --git a/t/core_overlay.t b/t/core_overlay.t
index 38cb83a..f385ad2 100644
--- a/t/core_overlay.t
+++ b/t/core_overlay.t
@@ -6,7 +6,7 @@ use SDL;
 
 use_ok('SDL::Overlay');
 
-SDL::Init(SDL_INIT_VIDEO);
+SDL::init(SDL_INIT_VIDEO);
 
 my $display = SDL::SetVideoMode(640,480,32, SDL_SWSURFACE );
 
@@ -14,5 +14,10 @@ my $overlay = SDL::Overlay->new( 100, 100, SDL_YV12_OVERLAY, $display);
 
 isa_ok( $overlay, 'SDL::Overlay');
 
+$overlay = undef;
+
+$display = undef;
+
+