Changeset 15890 for gsdl/trunk/perllib/ClassifyTreeNode.pm

Timestamp:

2008-06-06T11:04:57+12:00 (16 years ago)

Author:

mdewsnip

Message:

Adding "use strict", and fixing problems identified.

File:

• gsdl/trunk/perllib/ClassifyTreeNode.pm (modified) (4 diffs)

gsdl/trunk/perllib/ClassifyTreeNode.pm

@@ -4 +4 @@
 use ClassifyTreePath;
 use GDBMUtils;
+use strict;
 
 # /** Constructor
@@ -121 +122 @@
         # and then replacing any occurance to the parents old clid with the
         # parents new clid
-        $old_child_clid = $child_node->getCLID();
+        my $old_child_clid = $child_node->getCLID();
         #rint STDERR "* considering: " . $old_child_clid . "\n";
         if($old_child_clid =~ /^CL/)
           {
-            $new_child_clid = $new_clid . substr($old_child_clid, length($old_clid));
+            my $new_child_clid = $new_clid . substr($old_child_clid, length($old_clid));
             #rint STDERR "* shifting child $old_child_clid to $new_child_clid\n";
             $child_node->changeCLID($new_child_clid);
@@ -407 +408 @@
             # children first!
             @children = reverse $self->getChildren();
-            $offset2 = scalar(@children) + 1;
+            my $offset2 = scalar(@children) + 1;
             foreach my $sibling_node (@children)
               {
@@ -432 +433 @@
     $child_node->setTitle($path->getLastPathComponent());
     # Update the contains metadata for this node
-    $contains = $self->getContains();
+    my $contains = $self->getContains();
     if($contains =~ /\w/)
       {