From cd1c996a3bc6ad2218be3616082364c5bcc11c61 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 14 Nov 2006 16:04:36 +0000 Subject: [PATCH 1/1] Comment out debugging warn()s --- lib/ZOOM/IRSpy/Utils.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/ZOOM/IRSpy/Utils.pm b/lib/ZOOM/IRSpy/Utils.pm index b0faa22..adbb75a 100644 --- a/lib/ZOOM/IRSpy/Utils.pm +++ b/lib/ZOOM/IRSpy/Utils.pm @@ -1,4 +1,4 @@ -# $Id: Utils.pm,v 1.12 2006-11-14 14:57:41 mike Exp $ +# $Id: Utils.pm,v 1.13 2006-11-14 16:04:36 mike Exp $ package ZOOM::IRSpy::Utils; @@ -176,10 +176,10 @@ sub dom_add_node { my @children = $node->childNodes(); if (@children) { $node->insertBefore($new, $children[0]); - warn "Added new first child"; + #warn "Added new first child"; } else { $node->appendChild($new); - warn "Added new only child"; + #warn "Added new only child"; } if (0) { @@ -203,7 +203,7 @@ sub find_or_make_node { my(undef, $ppath, $element) = $path =~ /((.*)\/)?(.*)/; $ppath = "" if !defined $ppath; #warn "path='$path', ppath='$ppath', element='$element'"; - warn "no node '$path': making it"; + #warn "no node '$path': making it"; my $parent = find_or_make_node($xc, $ppath, $recursion_level-1); my(undef, $prefix, $nsElem) = $element =~ /((.*?):)?(.*)/; -- 1.7.10.4