projects
/
sdlgit/SDL_perl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Merge branch 'redesign' of github.com:kthakore/SDL_perl into redesign
[sdlgit/SDL_perl.git]
/
test
/
wave.pl
diff --git
a/test/wave.pl
b/test/wave.pl
index
fcb8cbb
..
ec9af65
100644
(file)
--- a/
test/wave.pl
+++ b/
test/wave.pl
@@
-8,10
+8,9
@@
use SDL;
use SDL::Mixer;
use SDL::Sound;
-SDL::Init(SDL_INIT_AUDIO);
-
my $filename = shift || 'data/sample.wav';
+# we want a frequency that is higher than the default
my $mixer = SDL::Mixer->new(
-frequency => 44100,
);