Select Code to Download

Use of uninitialized value in string ne at /usr/local/share/perl/5.10.
+1/Tree/Nary.pm line 1050.
Use of uninitialized value in string ne at /usr/local/share/perl/5.10.
+1/Tree/Nary.pm line 1050.
Use of uninitialized value in string ne at /usr/local/share/perl/5.10.
+1/Tree/Nary.pm line 1050.
Use of uninitialized value in string ne at /usr/local/share/perl/5.10.
+1/Tree/Nary.pm line 1050.

#!/usr/bin/perl -w
use Tree::Nary;
...
my $nodethree = $testtree->insert_data($nodetwo,3);

my $foundnode = $testtree->find($testtree,$Tree::Nary::PRE_ORDER,$Tree
+::Nary::TRAVERSE_ALL,3);