From: tbrannon <tbrannon@devel.cybertechnologyllc.com>
Date: Fri, 9 Jan 2009 19:07:08 +0000 (-0500)
Subject: passover method tested
X-Git-Tag: 5.200_001~46
X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=5f53bf212e506831653abc6442b846782211e12c;p=html-element-library.git

passover method tested
---

diff --git a/lib/HTML/Element/Library.pm b/lib/HTML/Element/Library.pm
index 0395853..08f6ee5 100644
--- a/lib/HTML/Element/Library.pm
+++ b/lib/HTML/Element/Library.pm
@@ -45,12 +45,7 @@ sub HTML::Element::passover {
 
   my @s = HTML::Element::siblings($exodus);
 
-  warn "sibling count", scalar @s;
-  warn "siblings", join ':', @s;
-
   for my $s (@s) {
-    warn "SIBLING: $s";
-    warn "ref sib", ref $s;
     next unless ref $s;
     if ($s->attr('id') eq $child_id) {
       ;
@@ -557,9 +552,9 @@ sub HTML::Element::table2 {
   #  ++$DEBUG if $table{debug} ;
 
   # Get the table element
-  warn 1;
+  #warn 1;
   $table->{table_node} = ref_or_ld( $tree, $p{table_ld} ) ;
-  warn 2;
+  #warn 2;
   $table->{table_node} or confess
     "table tag not found via " . Dumper($p{table_ld}) ;
 
@@ -598,12 +593,12 @@ sub HTML::Element::table2 {
 	if defined $p{tr_proc};
 
     warn  "data row redux: " . Dumper $row if $p{debug};
-    warn 3.3;
+    #warn 3.3;
 
     $p{td_proc}->($new_tr_node, $row);
     push @table_rows, $new_tr_node;
 
-    warn 4.4;
+    #warn 4.4;
 
     redo;
   }