X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/50d4e173c45376a21561a87e1798a2644d08ebfb..df7bba65634dbc997ba06409e25a49b8be9dd139:/selfforum-cgi/shared/Arc/Test.pm?ds=sidebyside

diff --git a/selfforum-cgi/shared/Arc/Test.pm b/selfforum-cgi/shared/Arc/Test.pm
index 6851912..aacc92e 100644
--- 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;
 
 #