X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSDL%2FConstants.pm;fp=lib%2FSDL%2FConstants.pm;h=5ed457a05ef96d3d0f3b5f1d55b063ebbdc81ce3;hb=659a4733e2640c248e268f456021fe834215071a;hp=fedd9d16fbb50e1a8105dd51c8a46544cd1795ec;hpb=85f58508e500c2fc9e7654f432c307975a5235c5;p=sdlgit%2FSDL_perl.git

diff --git a/lib/SDL/Constants.pm b/lib/SDL/Constants.pm
index fedd9d1..5ed457a 100644
--- 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}