From 42be25f24273187df5f4f4717a6d7c85f29c67e6 Mon Sep 17 00:00:00 2001 From: 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.5