Changeset 10616 for trunk/Padre/lib/Padre/Wx/Dialog/RegexEditor.pm

Timestamp:

02/08/10 03:05:41 (2 years ago)

Author:

azawawi

Message:

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

File:

• trunk/Padre/lib/Padre/Wx/Dialog/RegexEditor.pm (modified) (2 diffs)

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

@@ -394 +394 @@
     $str   = '' unless $str;
     $level = 0  unless $level;
-    my @children = $parent->children if $parent->isa('PPIx::Regexp::Node');
+    my @children = $parent->isa('PPIx::Regexp::Node') ? $parent->children: ();
     for my $child (@children) {
         next if $child->content eq '';
@@ -412 +412 @@
     $position = 0  unless $position;
     @array    = () unless @array;
-    my @elements = $parent->elements if $parent->isa('PPIx::Regexp::Node');
+    my @elements = $parent->isa('PPIx::Regexp::Node') ? $parent->elements: ();
     for my $element (@elements) {
         my $content = $element->content;