1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
diff -puriN SDL_perl-1.20.3/test/loopwave.pl sdlperl-1.20.3/test/loopwave.pl
--- SDL_perl-1.20.3/test/loopwave.pl 2003-03-12 05:33:56 +0100
+++ sdlperl-1.20.3/test/loopwave.pl 2006-03-01 00:42:56 +0100
@@ -1,9 +1,10 @@
#!/usr/bin/env perl
use SDL;
+use SDL::Event;
die "Could not initialize SDL: ", SDL::GetError()
- if ( 0 > SDL::Init(SDL_INIT_AUDIO()));
+ if ( 0 > SDL::Init(SDL_INIT_AUDIO));
$ARGV[0] ||= 'data/sample.wav';
@@ -56,7 +57,7 @@ SDL::PauseAudio(0);
print "Using audio driver: ", SDL::AudioDriverName(), "\n";
-while (! $done && ( SDL::GetAudioStatus() == SDL_AUDIO_PLAYING())) {
+while (! $done && ( SDL::GetAudioStatus() == SDL_AUDIO_PLAYING)) {
SDL::Delay(1000);
}
diff -puriN SDL_perl-1.20.3/test/testjoystick.pl sdlperl-1.20.3/test/testjoystick.pl
--- SDL_perl-1.20.3/test/testjoystick.pl 2003-01-07 03:56:05 +0100
+++ sdlperl-1.20.3/test/testjoystick.pl 2006-03-01 00:42:56 +0100
@@ -154,7 +154,7 @@ sub WatchJoystick($){
}
die "Could not initialize SDL: ", SDL::GetError()
- if( 0 > SDL::Init(SDL::INIT_JOYSTICK()));
+ if( 0 > SDL::Init(SDL_INIT_JOYSTICK));
printf "There are %d joysticks attched\n", SDL::NumJoysticks();
for(my $i = 0; $i < SDL::NumJoysticks(); $i++){
diff -puriN SDL_perl-1.20.3/test/testtimer.pl sdlperl-1.20.3/test/testtimer.pl
--- SDL_perl-1.20.3/test/testtimer.pl 2003-03-12 07:00:29 +0100
+++ sdlperl-1.20.3/test/testtimer.pl 2006-03-01 00:42:56 +0100
@@ -2,10 +2,11 @@
use SDL;
use SDL::Timer;
+use SDL::Event;
die "usage: $0\n" if in($ARGV[0], qw/ -? -h --help/);
-SDL::Init(SDL_INIT_EVERYTHING());
+SDL::Init(SDL_INIT_TIMER);
print STDERR "Waiting 4 seconds\n";
SDL::Delay(4000);
|
