-# $Id: Node.pm,v 1.2 2006-10-06 16:51:32 mike Exp $
+# $Id: Node.pm,v 1.5 2006-10-11 16:36:03 mike Exp $
package ZOOM::IRSpy::Node;
parameter is the level of indentation to use in printing the node;
this method recursively invokes itself with higher levels.
+=cut
+
sub print {
my $this = shift();
my($level) = @_;
my @sub = $this->subnodes();
if ($address eq "") {
return $this;
- } elsif (my($head, $tail) = $address =~ /(.*):(.*)/) {
+ } elsif (my($head, $tail) = $address =~ /(.*?):(.*)/) {
return $sub[$head]->select($tail);
} else {
return $sub[$address];