X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pages%2FSDL-CDTrack.html-inc;h=e33fcb79deffa0ea4ca61cd546db4c6e8125e439;hb=807ae0cdf3bf7e415bbb01449976c9ab91209cbb;hp=73ec8e9b13de5c84af5eeccbb7427ae9e1531635;hpb=92e293d6d5adcc910443bf2ef174928e266c625d;p=sdlgit%2FSDL-Site.git diff --git a/pages/SDL-CDTrack.html-inc b/pages/SDL-CDTrack.html-inc index 73ec8e9..e33fcb7 100644 --- a/pages/SDL-CDTrack.html-inc +++ b/pages/SDL-CDTrack.html-inc @@ -5,6 +5,7 @@
use SDL; use SDL::CDROM; - use SDL::CD; + use SDL::CD ':status'; use SDL::CDTrack; SDL::init( SDL_INIT_CDROM ); @@ -40,22 +41,34 @@ if( $drives > 0 ) { - my $CD = SDL::CD->new(0); #first drive's CD - - if( $CD != NULL) - { - if( $CD->status != CD_TRAYEMPTY ) - { - my $track = SDL::CD->track(0); - } - } - + my $CD = SDL::CD->new(0); #first drive's CD + + if($CD) + { + if( $CD->status != CD_TRAYEMPTY ) + { + my $track = SDL::CD->track(0); + } + } } - SDL::quit(); ++
The constants are exported by default. You can avoid this by doing:
+use SDL::CDTrack (); ++
and access them directly:
+SDL::CDTrack::SDL_AUDIO_TRACK; ++
or by choosing the export tags below:
+Export tag: ':type'
+SDL_AUDIO_TRACK + SDL_DATA_TRACK@@ -98,7 +111,7 @@