Skip Menu |
 

This queue is for tickets about the XML-XSS CPAN distribution.

Report information
The Basics
Id: 87196
Status: resolved
Priority: 0/
Queue: XML-XSS

People
Owner: Nobody in particular
Requestors: rurban [...] x-ray.at
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

Attachments


Subject: [PATCH] wrong return precedence
Download (untitled) / with headers
text/plain 256b
returns bind stronger than and, so the expression after and is ignored: return ref($a) eq ref($b) and refaddr($a) == refaddr($b); => return (ref($a) eq ref($b) and refaddr($a) == refaddr($b)); See https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802
Subject: XML-XSS-0.3.1-returnor.patch
diff -bu XML-XSS-0.3.1-xj_2Cr/lib/XML/XSS/StyleAttribute.pm~ XML-XSS-0.3.1-xj_2Cr/lib/XML/XSS/StyleAttribute.pm --- XML-XSS-0.3.1-xj_2Cr/lib/XML/XSS/StyleAttribute.pm~ 2011-03-14 18:02:34.000000000 -0600 +++ XML-XSS-0.3.1-xj_2Cr/lib/XML/XSS/StyleAttribute.pm 2013-07-20 21:22:08.358694090 -0600 @@ -30,8 +30,8 @@ '=' => sub { shift }, 'eq' => sub { my ( $a, $b ) = @_; - return ref($a) eq ref($b) - and refaddr($a) == refaddr($b); + return (ref($a) eq ref($b) + and refaddr($a) == refaddr($b)); };
Fixed. Thanks!


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.