SOURCES: pangzero-SDL.patch (NEW) - fix for perl-SDL-2.0.5+

[jackass]

Author: jackass                      Date: Mon Aug 21 19:40:29 2006 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- fix for perl-SDL-2.0.5+

---- Files affected:
SOURCES:
   pangzero-SDL.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/pangzero-SDL.patch
diff -u /dev/null SOURCES/pangzero-SDL.patch:1.1
--- /dev/null	Mon Aug 21 21:40:29 2006
+++ SOURCES/pangzero-SDL.patch	Mon Aug 21 21:40:24 2006
@@ -0,0 +1,20 @@
+--- pangzero-0.13/bin/pangzero	2006-08-21 21:15:51.000000000 +0200
++++ pangzero-0.13/bin/pangzero~	2006-08-21 14:03:48.000000000 +0200
+@@ -2124,7 +2124,7 @@
+   }
+ 
+   $::music = new SDL::Music("$DataDir/UPiPang.mp3");
+-  $::music = new SDL::Music("$DataDir/UPiPang.mid") unless $::music and $::music->{-data};
++  $::music = new SDL::Music("$DataDir/UPiPang.mid") unless $::music and $::music;
+   &SetMusicEnabled($MusicEnabled);
+ }
+ 
+@@ -2135,7 +2135,7 @@
+ }
+ 
+ sub SetMusicEnabled {
+-  return unless $::music and $::music->{-data};
++  return unless $::music and $::music;
+   my $musicEnabled = shift;
+ 
+   $MusicEnabled = $musicEnabled ? 1 : 0;
================================================================