Changeset 6141 for trunk/PERL_SCRIPTS/BIOPERL/beautifyNewick.pl

Timestamp:

14/08/09 16:29:27 (3 years ago)

Author:

westram

Message:

• spellchecked all (phew)

Files:

• trunk/PERL_SCRIPTS/BIOPERL/beautifyNewick.pl (modified) (3 diffs)

trunk/PERL_SCRIPTS/BIOPERL/beautifyNewick.pl

@@ -48 +48 @@
   $depth++;
 
-  my @childs = ();
+  my @children = ();
   foreach my $child ($node->each_Descendent()) {
-    push @childs, node2string($child).':'.$child->branch_length;
+    push @children, node2string($child).':'.$child->branch_length;
   }
 
@@ -56 +56 @@
     my $len = length($str);
 
-    $str .= make_indent($inTreeComments-$len)."[childs=".scalar(@childs);
+    $str .= make_indent($inTreeComments-$len)."[children=".scalar(@children);
     if ($indent_incr==0) { $str .= ', level='.$depth; }
     $str .= "]";
@@ -62 +62 @@
   $str .= "\n";
 
-  $str .= join(",\n", @childs)."\n";
+  $str .= join(",\n", @children)."\n";
 
   $depth--;