Skip Menu |

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

Report information
The Basics
Id: 87197
Status: new
Priority: 0/
Queue: XML-Simple-DTDReader

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)



Subject: [PATCH] wrong return precedence
returns bind stronger than and, so the expression after and is ignored. See https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802
Subject: XML-Simple-DTDReader-0.04-returnor.patch
diff -bu XML-Simple-DTDReader-0.04-Dc7G90/DTDReader.pm~ XML-Simple-DTDReader-0.04-Dc7G90/DTDReader.pm --- XML-Simple-DTDReader-0.04-Dc7G90/DTDReader.pm~ 2005-07-30 12:20:21.000000000 -0600 +++ XML-Simple-DTDReader-0.04-Dc7G90/DTDReader.pm 2013-07-20 21:49:26.238711657 -0600 @@ -277,7 +277,7 @@ sub empty { my ($element) = @_; if ($element->isname) { - return $element->quant and ($element->quant eq "*" or $element->quant eq "?"); + return $element->quant && ($element->quant eq "*" or $element->quant eq "?"); } elsif ($element->isseq) { for ($element->children) { return 0 unless empty($_);