Fixing my syntax error, whoops

diff --git a/C4/Koha.pm b/C4/Koha.pm
index fc67165..63d1f71 100644 (file)
--- 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