-# $Id: Node.pm,v 1.3 2006-10-11 14:34:21 mike Exp $
+# $Id: Node.pm,v 1.5 2006-10-11 16:36:03 mike Exp $
package ZOOM::IRSpy::Node;
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];