--- /usr/lib/perl5/SDL/Surface.pm.orig	2016-01-17 20:44:06.000000000 +0300
+++ /usr/lib/perl5/SDL/Surface.pm	2016-01-17 20:45:50.000000000 +0300
@@ -198,17 +198,18 @@
 }
 
 sub blit {
-		$_[1] = 0 unless defined $_[1];
-		$_[3] = 0 unless defined $_[3];
+		my @params = @_;
+		$params[1] = 0 unless defined $params[1];
+		$params[3] = 0 unless defined $params[3];
 
 	if ($SDL::DEBUG) {
 		croak "SDL::Surface::blit requires SDL::Rect objects"
-			unless ($_[1] == 0 || $_[1]->isa('SDL::Rect'))
-			&& ($_[3] == 0 || $_[3]->isa('SDL::Rect'));
+			unless ($params[1] == 0 || $params[1]->isa('SDL::Rect'))
+			&& ($params[3] == 0 || $params[3]->isa('SDL::Rect'));
 		croak "SDL::Surface::blit requires SDL::Surface objects"
-			unless $_[2]->isa('SDL::Surface'); 
+			unless $params[2]->isa('SDL::Surface'); 
 	}
-		SDL::BlitSurface(map { (defined($_) && $_ != 0)? ${$_} : $_ } @_) if @_;
+		SDL::BlitSurface(map { (defined($_) && $_ != 0)? ${$_} : $_ } @params) if @params;
 }
 
 sub set_colors {