import Scalar::Util to test weaken references of perl objects

[irspy-moved-to-github.git] / lib / ZOOM / IRSpy / Node.pm

diff --git a/lib/ZOOM/IRSpy/Node.pm b/lib/ZOOM/IRSpy/Node.pm
index f912b94..9d2f5c7 100644 (file)
--- a/lib/ZOOM/IRSpy/Node.pm
+++ b/lib/ZOOM/IRSpy/Node.pm
@@ -6,6 +6,7 @@ use 5.008;
 use strict;
 use warnings;
 
+use Scalar::Util;
 
 =head1 NAME
 
@@ -57,13 +58,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()