ALT Linux Bugzilla
– Attachment 6467 Details for
Bug 30568
frozen-bubble/perl-SDL: broken with perl-5.20.1
New bug
|
Search
|
[?]
|
Help
Register
|
Log In
[x]
|
Forgot Password
Login:
[x]
|
EN
|
RU
[patch]
fix_modify_readonly_value.patch
fix_modify_readonly_value.patch (text/plain), 996 bytes, created by
nwtour
on 2016-01-17 21:18:48 MSK
(
hide
)
Description:
fix_modify_readonly_value.patch
Filename:
MIME Type:
Creator:
nwtour
Created:
2016-01-17 21:18:48 MSK
Size:
996 bytes
patch
obsolete
>--- /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 {
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
Attachments on
bug 30568
: 6467