X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/33dc5903af2c531fdd07df0ac1591c55ea13c5d3..8ee59d9d7ce698dc48659f95f1d7e90953117b48:/selfforum-cgi/shared/Template/_conf.pm?ds=inline diff --git a/selfforum-cgi/shared/Template/_conf.pm b/selfforum-cgi/shared/Template/_conf.pm index 626815b..01100a5 100644 --- a/selfforum-cgi/shared/Template/_conf.pm +++ b/selfforum-cgi/shared/Template/_conf.pm @@ -4,7 +4,7 @@ package Template::_conf; # # # File: shared/Template/_conf.pm # # # -# Authors: André Malo , 2001-06-16 # +# Authors: André Malo # # # # Description: combine user and default config # # # @@ -13,14 +13,17 @@ package Template::_conf; use strict; use vars qw( @EXPORT - $VERSION ); ################################################################################ # # Version check # -$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +# last modified: +# $Date$ (GMT) +# by $Author$ +# +sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'} ################################################################################ # @@ -57,4 +60,4 @@ sub get_view_params ($) { # # -### end of Template::_conf ##################################################### +### end of Template::_conf ##################################################### \ No newline at end of file