SDL::Surface::blit always dies if you pass 0 (allowed according to the
docs) for drect. This is due to a typo when checking the parentage of
the passed arguments. Please see the attached patch, which changes a 1
to a 3. I keep hearing rumors about a new release being made Real Soon
Now(tm) -- are these rumors true?
--
Andy Bakun <[EMAIL PROTECTED]>
diff -Naur SDL_Perl-2.1.0/lib/SDL/Surface.pm SDL_Perl-2.1.0-blitfix/lib/SDL/Surface.pm
--- SDL_Perl-2.1.0/lib/SDL/Surface.pm 2004-02-23 19:55:43.000000000 -0600
+++ SDL_Perl-2.1.0-blitfix/lib/SDL/Surface.pm 2004-07-30 21:06:06.368011000 -0500
@@ -180,7 +180,7 @@
if ($SDL::DEBUG) {
die "SDL::Surface::blit requires SDL::Rect objects"
unless ($_[1] == 0 || $_[1]->isa('SDL::Rect'))
- && ($_[1] == 0 || $_[3]->isa('SDL::Rect'));
+ && ($_[3] == 0 || $_[3]->isa('SDL::Rect'));
die "SDL::Surface::blit requires SDL::Surface objects"
unless $_[2]->isa('SDL::Surface');
}
