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

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