Fixed the pod path in archive

[sdlgit/SDL_perl.git] / t / core_overlay.t

diff --git a/t/core_overlay.t b/t/core_overlay.t
index 38cb83a..f385ad2 100644 (file)
--- 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;
+
+