Changeset 10616

Show
Ignore:
Timestamp:
02/08/10 03:05:41 (7 months ago)
Author:
azawawi
Message:

Fixed "Variable declared as conditional" PerlCritic? warning in Regex Editor

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/Padre/lib/Padre/Wx/Dialog/RegexEditor.pm

    r10595 r10616  
    394394        $str   = '' unless $str; 
    395395        $level = 0  unless $level; 
    396         my @children = $parent->children if $parent->isa('PPIx::Regexp::Node'); 
     396        my @children = $parent->isa('PPIx::Regexp::Node') ? $parent->children: (); 
    397397        for my $child (@children) { 
    398398                next if $child->content eq ''; 
    … …  
    412412        $position = 0  unless $position; 
    413413        @array    = () unless @array; 
    414         my @elements = $parent->elements if $parent->isa('PPIx::Regexp::Node'); 
     414        my @elements = $parent->isa('PPIx::Regexp::Node') ? $parent->elements: (); 
    415415        for my $element (@elements) { 
    416416                my $content = $element->content;