cpan> look Win32::Sound
$ patch or vi below
$ diff -U0 Sound.xs.orig Sound.xs
--- Sound.xs.orig 2006-07-28 13:24:41.595081600 -0700
+++ Sound.xs 2006-07-28 13:26:48.537616000 -0700
@@ -319 +319 @@
- name = (LPCSTR)SvPV(ST(0),na);
+ name = (LPCSTR)SvPV(ST(0),PL_na);
@@ -856 +856 @@
- if(dowarn) warn("WaveOut::Save: invalid format (channels)");
+ if(PL_dowarn) warn("WaveOut::Save: invalid format (channels)");
@@ -862 +862 @@
- if(dowarn) warn("WaveOut::Save: invalid format (samplerate)");
+ if(PL_dowarn) warn("WaveOut::Save: invalid format (samplerate)");
@@ -868 +868 @@
- if(dowarn) warn("WaveOut::Save: invalid format (bits)");
+ if(PL_dowarn) warn("WaveOut::Save: invalid format (bits)");
$ perl Makefile.PL LDLOADLIBS=-lwinmm