X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FNode.pm;h=74b51545389362293235a68dd3ac09c1eb50fdd5;hb=755ff16a85a9ce6939a747122ff128dfb302e90e;hp=84eadcaee10c50572c9f01194ebe6296c501ee36;hpb=9475a7e57e6620d064387dc485067655517c9a1b;p=irspy-moved-to-github.git

diff --git a/lib/ZOOM/IRSpy/Node.pm b/lib/ZOOM/IRSpy/Node.pm
index 84eadca..74b5154 100644
--- a/lib/ZOOM/IRSpy/Node.pm
+++ b/lib/ZOOM/IRSpy/Node.pm
@@ -1,4 +1,4 @@
-# $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;
 
@@ -98,6 +98,8 @@ Pretty-prints the node and, recursively, all its children.  The
 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) = @_;
@@ -157,7 +159,7 @@ sub select {
     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];