change our to use vars

diff --git a/perl/Thingy.pm b/perl/Thingy.pm
index cf057957c8e7e415149b3d1aaef036f672b796a4..885e7f0f5f4c0dc1a210a449390b5025978d7c87 100644 (file)
--- 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