X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXCluster.pm;h=4e94f4afb6ecb9c8f8b991c7bcef7639a84c6ff1;hp=2ddd2358648f28616c2c8f2f197bce61303e9d4a;hb=2546ef0cfaaca39e65985e414258071a636979af;hpb=fdc1150da7dbd9c1094d8df7a4744fb917017ed2

diff --git a/perl/DXCluster.pm b/perl/DXCluster.pm
index 2ddd2358..4e94f4af 100644
--- a/perl/DXCluster.pm
+++ b/perl/DXCluster.pm
@@ -122,7 +122,9 @@ package DXNodeuser;
 use DXDebug;
 
 use strict;
-my $users = 0;
+use vars qw($users);
+
+$users = 0;
 
 sub new 
 {
@@ -168,13 +170,15 @@ package DXNode;
 use DXDebug;
 
 use strict;
-my $nodes = 0;
+use vars qw($nodes);
+
+$nodes = 0;
 
 sub new 
 {
   my ($pkg, $dxchan, $call, $confmode, $here, $pcversion) = @_;
   my $self = $pkg->alloc($dxchan, $call, $confmode, $here);
-  $self->{version} = $pcversion;
+  $self->{pcversion} = $pcversion;
   $self->{list} = { } ;
   $nodes++;
   dbg('cluster', "allocating node $call to cluster\n");