[patch] Fix the new get_sound subroutine to handle SDL:: object types

frozen-bubble_background_music.patch (text/plain), 385 bytes, created by Jason Bucata on 2005-04-03 00:57:46 UTC

--- /usr/games/bin/frozen-bubble	2005-04-03 01:15:53.000000000 -0600
+++ ./frozen-bubble	2005-04-03 03:47:45.000000000 -0500
@@ -163,8 +163,10 @@
 
 sub get_sound {
 	my ($sound) = @_;
-	if (ref($sound) eq 'HASH') {
+	if (ref($sound) eq 'SDL::Sound') {
 		return $sound{$_}{-data};
+	} elsif (ref($sound) eq 'SDL::Music') {
+		return $sound->{-data};
 	} else {
 		return $$sound;
 	}