X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FThingy.pm;h=885e7f0f5f4c0dc1a210a449390b5025978d7c87;hb=584945a122922aebe94f733c8f9a734f412aa5cb;hp=cf057957c8e7e415149b3d1aaef036f672b796a4;hpb=1284d2e7cc4c25bb02c7f4fa7c59246de9c0027c;p=spider.git

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