From 0d5d46f2c42cae1577c3cecf367d21a4948dbb3d Mon Sep 17 00:00:00 2001 From: Mike Taylor 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