summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'games-arcade/frozen-bubble/files/1.0.0-fb-sdlperl-deb.patch')
-rw-r--r--games-arcade/frozen-bubble/files/1.0.0-fb-sdlperl-deb.patch40
1 files changed, 40 insertions, 0 deletions
diff --git a/games-arcade/frozen-bubble/files/1.0.0-fb-sdlperl-deb.patch b/games-arcade/frozen-bubble/files/1.0.0-fb-sdlperl-deb.patch
new file mode 100644
index 000000000000..17afc8822ebc
--- /dev/null
+++ b/games-arcade/frozen-bubble/files/1.0.0-fb-sdlperl-deb.patch
@@ -0,0 +1,40 @@
+--- frozen-bubble 2003-06-13 09:46:09.000000000 -0300
++++ frozen-bubble 2004-05-31 00:46:31.000000000 -0300
+@@ -308,7 +308,11 @@
+ sub add_image($) {
+ my $file = "$FPATH/gfx/$_[0]";
+ my $img = SDL::Surface->new(-name => $file);
+- $img->{-surface} or die "FATAL: Couldn't load `$file' into a SDL::Surface.\n";
++ if (UNIVERSAL::isa($img, "HASH")) {
++ $img->{-surface} or die "FATAL: Couldn't load `$file' into a SDL::Surface.\n";
++ } else {
++ $img or die "FATAL: Couldn't load `$file' into a SDL::Surface.\n";
++ }
+ add_default_rect($img);
+ return $img;
+ }
+@@ -1476,7 +1480,11 @@
+ }
+
+ put_image($imgbin{hiscore_frame}, $high_posx - 7, $high_posy - 6);
+- fb_c_stuff::shrink($app->{-surface}, $background->display_format->{-surface}, $high_posx, $high_posy, $high_rect->{-rect}, 4);
++ if (UNIVERSAL::isa($app, "HASH")) {
++ fb_c_stuff::shrink($app->{-surface}, $background->display_format->{-surface}, $high_posx, $high_posy, $high_rect->{-rect}, 4);
++ } else {
++ fb_c_stuff::shrink($$app, ${$background->display_format}, $high_posx, $high_posy, $$high_rect, 4);
++ }
+ $centered_print->($high_posx, $high_posy, $high->{name});
+ $centered_print->($high_posx, $high_posy+20, $high->{level} eq 'WON' ? "WON!" : "LVL-".$high->{level});
+ my $min = int($high->{time}/60);
+@@ -1644,8 +1652,10 @@
+ if ($graphics_level == 1) {
+ $background->blit($apprects{main}, $app, $apprects{main});
+ $app->flip;
+- } else {
++ } elsif (UNIVERSAL::isa($app, "HASH")) {
+ fb_c_stuff::effect($app->{-surface}, $background->display_format->{-surface});
++ } else {
++ fb_c_stuff::effect($$app, ${$background->display_format});
+ }
+
+ $display_on_app_disabled = 0;