From: minima <minima>
Date: Wed, 31 Dec 2003 20:08:49 +0000 (+0000)
Subject: change our to use vars
X-Git-Tag: R1_51
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=5f5a5406ad4fd897e4dea2b350dfe89638bcd988;p=spider.git

change our to use vars
---

diff --git a/perl/Thingy.pm b/perl/Thingy.pm
index cf057957..885e7f0f 100644
--- a/perl/Thingy.pm
+++ b/perl/Thingy.pm
@@ -20,7 +20,8 @@ $main::branch += $BRANCH;
 use DXChannel;
 use DXDebug;
 
-our @queue;
+use vars qw(@queue);
+@queue = ();					# the thingy queue
 
 # we expect all thingies to be subclassed
 sub new