fixed an 'uninitialized' warning

[selfforum.git] / selfforum-cgi / shared / Arc / Test.pm

diff --git a/selfforum-cgi/shared/Arc/Test.pm b/selfforum-cgi/shared/Arc/Test.pm
index 6851912d315370a10445523448906b928965e148..aacc92eec7be63e73706f0383e6424ebf21bbbb3 100644 (file)
--- a/selfforum-cgi/shared/Arc/Test.pm
+++ b/selfforum-cgi/shared/Arc/Test.pm
@@ -11,13 +11,23 @@ package Arc::Test;
 ################################################################################
 
 use strict;
+use vars qw(
+  @EXPORT
+  $VERSION
+);
+
+################################################################################
+#
+# Version check
+#
+$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 ################################################################################
 #
 # Export
 #
 use base qw(Exporter);
-@Arc::Test::EXPORT = qw(get_obsolete_threads);
+@EXPORT = qw(get_obsolete_threads);
 
 ### sub get_obsolete_threads ($) ###############################################
 #
@@ -110,7 +120,7 @@ sub get_obsolete_threads ($) {
   [sort {$a <=> $b} splice @sorted => 0, $obsolete];
 }
 
-# keep require happy
+# keep 'require' happy
 1;
 
 #