Skip Menu |
 

This queue is for tickets about the Any-Template CPAN distribution.

Report information
The Basics
Id: 87201
Status: new
Priority: 0/
Queue: Any-Template

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 133b
returns binds stronger than or, so the expressions after or are ignored. See https://rt.perl.org/rt3/Public/Bug/Display.html?id=59802
Subject: Any-Template-1.015-returnor.patch
diff -bu Any-Template-1.015-GwyIwR/lib/Any/Template/Backend/TemplateToolkit.pm~ Any-Template-1.015-GwyIwR/lib/Any/Template/Backend/TemplateToolkit.pm --- Any-Template-1.015-GwyIwR/lib/Any/Template/Backend/TemplateToolkit.pm~ 2006-05-08 07:29:21.000000000 -0500 +++ Any-Template-1.015-GwyIwR/lib/Any/Template/Backend/TemplateToolkit.pm 2013-07-22 15:51:50.786075824 -0500 @@ -26,24 +26,24 @@ my ($self, $data, $ref_buffer) = @_; $$ref_buffer = ''; TRACE("Input", $self->{input}); - $self->{engine}->process($self->{input}, $data, $ref_buffer) or die($self->{engine}->error()); + return $self->{engine}->process($self->{input}, $data, $ref_buffer) || die($self->{engine}->error()); } sub process_to_filehandle { my ($self, $data, $fh) = @_; TRACE("Input", $self->{input}); - $self->{engine}->process($self->{input}, $data, $fh) or die($self->{engine}->error()); + return $self->{engine}->process($self->{input}, $data, $fh) || die($self->{engine}->error()); } sub process_to_file { my ($self, $data, $filepath) = @_; TRACE("Input", $self->{input}); - $self->{engine}->process($self->{input}, $data, $filepath) or die($self->{engine}->error()); + return $self->{engine}->process($self->{input}, $data, $filepath) || die($self->{engine}->error()); } sub process_to_sub { my ($self, $data, $coderef) = @_; - return $self->{engine}->process($self->{input}, $data, $coderef) or die($self->{engine}->error()); + return $self->{engine}->process($self->{input}, $data, $coderef) || die($self->{engine}->error()); } #


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.