X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FNode.pm;h=7e0b9b15efa5a36dcce38c8cbafc2bb96ee0e9af;hb=b83911b54f10ace3de88f2eb084f2cebb16c59a3;hp=f912b94217a843c7d62477c3f1d25db8b9fd71c3;hpb=fed17a90a142f7183d556bbe7b8754d0f0ad1a48;p=irspy-moved-to-github.git

diff --git a/lib/ZOOM/IRSpy/Node.pm b/lib/ZOOM/IRSpy/Node.pm
index f912b94..7e0b9b1 100644
--- a/lib/ZOOM/IRSpy/Node.pm
+++ b/lib/ZOOM/IRSpy/Node.pm
@@ -1,4 +1,3 @@
-# $Id: Node.pm,v 1.6 2007-02-28 17:34:54 mike Exp $
 
 package ZOOM::IRSpy::Node;
 
@@ -6,6 +5,7 @@ use 5.008;
 use strict;
 use warnings;
 
+use Scalar::Util;
 
 =head1 NAME
 
@@ -57,13 +57,15 @@ changed.
 sub new {
     my $class = shift();
     my($name, @subnodes) = @_;
-    return bless {
+    my $this = bless {
 	name => $name,
 	subnodes => \@subnodes,
 	address => undef,	# filled in by resolve()
 	previous => undef,	# filled in by resolve()
 	next => undef,		# filled in by resolve()
     }, $class;
+
+    return $this;
 }
 
 =head2 name()