| Subject: | [PATCH] wrong return precedence |
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: | Rose-HTML-Objects-0.618-returnor.patch |
diff -bu Rose-HTML-Objects-0.618-HlMvi3/lib/Rose/HTML/Form/Field/OnOff.pm~ Rose-HTML-Objects-0.618-HlMvi3/lib/Rose/HTML/Form/Field/OnOff.pm
--- Rose-HTML-Objects-0.618-HlMvi3/lib/Rose/HTML/Form/Field/OnOff.pm~ 2009-11-09 13:47:50.000000000 -0600
+++ Rose-HTML-Objects-0.618-HlMvi3/lib/Rose/HTML/Form/Field/OnOff.pm 2013-07-24 10:24:58.911633829 -0500
@@ -32,7 +32,8 @@
{
my($self) = shift;
my $parent_group = $self->parent_group or return;
- return $parent_group->fq_name or return;
+ my $name = $parent_group->fq_name or return;
+ return $name;
}
sub fq_name
diff -bu Rose-HTML-Objects-0.618-HlMvi3/lib/Rose/HTML/Form/Field.pm~ Rose-HTML-Objects-0.618-HlMvi3/lib/Rose/HTML/Form/Field.pm
--- Rose-HTML-Objects-0.618-HlMvi3/lib/Rose/HTML/Form/Field.pm~ 2013-07-24 10:23:59.116173215 -0500
+++ Rose-HTML-Objects-0.618-HlMvi3/lib/Rose/HTML/Form/Field.pm 2013-07-24 10:25:39.615266687 -0500
@@ -225,7 +225,8 @@
{
my($self) = shift;
my $parent_field = $self->parent_field or return;
- return $parent_field->fq_name or return;
+ my $name = $parent_field->fq_name or return;
+ return $name;
}
sub is_flat_group { 0 }