Lines 198-214
Link Here
|
198 |
} |
198 |
} |
199 |
|
199 |
|
200 |
sub blit { |
200 |
sub blit { |
201 |
$_[1] = 0 unless defined $_[1]; |
201 |
my @params = @_; |
202 |
$_[3] = 0 unless defined $_[3]; |
202 |
$params[1] = 0 unless defined $params[1]; |
|
|
203 |
$params[3] = 0 unless defined $params[3]; |
203 |
|
204 |
|
204 |
if ($SDL::DEBUG) { |
205 |
if ($SDL::DEBUG) { |
205 |
croak "SDL::Surface::blit requires SDL::Rect objects" |
206 |
croak "SDL::Surface::blit requires SDL::Rect objects" |
206 |
unless ($_[1] == 0 || $_[1]->isa('SDL::Rect')) |
207 |
unless ($params[1] == 0 || $params[1]->isa('SDL::Rect')) |
207 |
&& ($_[3] == 0 || $_[3]->isa('SDL::Rect')); |
208 |
&& ($params[3] == 0 || $params[3]->isa('SDL::Rect')); |
208 |
croak "SDL::Surface::blit requires SDL::Surface objects" |
209 |
croak "SDL::Surface::blit requires SDL::Surface objects" |
209 |
unless $_[2]->isa('SDL::Surface'); |
210 |
unless $params[2]->isa('SDL::Surface'); |
210 |
} |
211 |
} |
211 |
SDL::BlitSurface(map { (defined($_) && $_ != 0)? ${$_} : $_ } @_) if @_; |
212 |
SDL::BlitSurface(map { (defined($_) && $_ != 0)? ${$_} : $_ } @params) if @params; |
212 |
} |
213 |
} |
213 |
|
214 |
|
214 |
sub set_colors { |
215 |
sub set_colors { |