From 8d75bc7426ba385470bf1fd155e1079e9162488d Mon Sep 17 00:00:00 2001 From: btoumi Date: Tue, 23 May 2006 10:00:01 +0000 Subject: [PATCH] syntax error has been corrected --- C4/Accounts2.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/C4/Accounts2.pm b/C4/Accounts2.pm index bbff193299..ea920ededf 100755 --- a/C4/Accounts2.pm +++ b/C4/Accounts2.pm @@ -29,7 +29,8 @@ use C4::Circulation::Circ2; use vars qw($VERSION @ISA @EXPORT); # set the version for version checking -$VERSION = do { my @v = '$Revision$' =~ /\d+/g; +$VERSION = do { my @v = '$Revision$' =~ /\d+/g; +shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); }; =head1 NAME -- 2.39.5