View | Details | Raw Unified | Return to bug 30568
Collapse All | Expand All

(-)/usr/lib/perl5/SDL/Surface.pm.orig (-6 / +7 lines)
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 {

Return to bug 30568