Fix re-exporting SDL::Constants symbols to caller.

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

diff --git a/lib/SDL/Constants.pm b/lib/SDL/Constants.pm
index fedd9d1..5ed457a 100644 (file)
--- a/lib/SDL/Constants.pm
+++ b/lib/SDL/Constants.pm
@@ -305,10 +305,7 @@ package SDL::Constants;
        SDL_SAMPLEFLAG_EAGAIN
 );
 
-for (@EXPORT) {
-       *{"SDL::" . $_} = *{$_};
-       *{"main::" . $_} = *{$_};
-}
+@ISA = qw(Exporter);
 
 sub AUDIO_S16 {32784}
 sub AUDIO_S16MSB {36880}