From 465d9f18e3a20bb13028fdd05c7808421d7e93b2 Mon Sep 17 00:00:00 2001
From: Mike Taylor <mike@indexdata.com>
Date: Wed, 11 Oct 2006 16:35:43 +0000
Subject: [PATCH] Correct parsing of deep paths (head ends at first, not last,
 colon).

---
 lib/ZOOM/IRSpy/Node.pm |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/ZOOM/IRSpy/Node.pm b/lib/ZOOM/IRSpy/Node.pm
index eaf61a2..711d76b 100644
--- a/lib/ZOOM/IRSpy/Node.pm
+++ b/lib/ZOOM/IRSpy/Node.pm
@@ -1,4 +1,4 @@
-# $Id: Node.pm,v 1.3 2006-10-11 14:34:21 mike Exp $
+# $Id: Node.pm,v 1.4 2006-10-11 16:35:43 mike Exp $
 
 package ZOOM::IRSpy::Node;
 
@@ -159,7 +159,8 @@ sub select {
     my @sub = $this->subnodes();
     if ($address eq "") {
 	return $this;
-    } elsif (my($head, $tail) = $address =~ /(.*):(.*)/) {
+    } elsif (my($head, $tail) = $address =~ /(.*?):(.*)/) {
+	print "*** testing head='$head' tail='$tail'\n";
 	return $sub[$head]->select($tail);
     } else {
 	return $sub[$address];
-- 
1.7.10.4