X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/50d4e173c45376a21561a87e1798a2644d08ebfb..14525169b53ec1bafc6fa47f7f4f84ffc4298bd1:/selfforum-cgi/shared/Arc/Archive.pm diff --git a/selfforum-cgi/shared/Arc/Archive.pm b/selfforum-cgi/shared/Arc/Archive.pm index 8b4daea..9e6694b 100644 --- a/selfforum-cgi/shared/Arc/Archive.pm +++ b/selfforum-cgi/shared/Arc/Archive.pm @@ -4,13 +4,17 @@ package Arc::Archive; # # # File: shared/Arc/Archive.pm # # # -# Authors: Andre Malo , 2001-04-29 # +# Authors: Andre Malo , 2001-06-16 # # # # Description: Severance of Threads and archiving # # # ################################################################################ use strict; +use vars qw( + @EXPORT + $VERSION +); use Arc::Test; use Lock qw(:ALL); @@ -28,12 +32,18 @@ use Posting::Cache; use XML::DOM; +################################################################################ +# +# Version check +# +$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; + ################################################################################ # # Export # use base qw(Exporter); -@Arc::Archive::EXPORT = qw(cut_tail); +@EXPORT = qw(cut_tail); ### sub cut_tail ($) ########################################################### # @@ -220,7 +230,7 @@ sub cut_tail ($) { \%failed; } -# keep require happy +# keep 'require' happy 1; #