From 42be25f24273187df5f4f4717a6d7c85f29c67e6 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Mon, 22 May 2006 23:13:56 +0000
Subject: [PATCH] Fixing my syntax error, whoops

---
 C4/Koha.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Koha.pm b/C4/Koha.pm
index fc67165b5e..63d1f71b57 100644
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -25,7 +25,7 @@ use C4::Context;
 
 use vars qw($VERSION @ISA @EXPORT);
 
-$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.2