Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Avoid Perl warnings.
  • Loading branch information
racke committed Aug 15, 2010
1 parent 097d190 commit baba26c
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions lib/WellWell/Zoom.pm
Expand Up @@ -61,7 +61,9 @@ sub zoom {

# now determine which fields are needed
while (($key, $value) = each %{$sref->{params}->{$name}->{hash}}) {
push @{$bref->{columns}->{$value->{table}}}, $value->{field} || $key;
if (exists $value->{table}) {
push @{$bref->{columns}->{$value->{table}}}, $value->{field} || $key;
}
}

($sql, $bind) = build_select(%$bref);
Expand Down Expand Up @@ -196,7 +198,7 @@ sub parse_handler {
# determine code reference for named function
my $subref = $Vend::Cfg->{Sub}{$sob->{sub}} || $Global::GlobalSub->{$sob->{sub}};

if ($sob->{scope} eq 'element') {
if (exists $sob->{scope} && $sob->{scope} eq 'element') {
$elt->{zoom_rep_sub} = $subref;
}
else {
Expand Down

0 comments on commit baba26c

Please sign in to comment.