syntax error has been corrected
authorbtoumi <btoumi>
Tue, 23 May 2006 15:01:12 +0000 (15:01 +0000)
committerbtoumi <btoumi>
Tue, 23 May 2006 15:01:12 +0000 (15:01 +0000)
C4/Acquisition.pm

index ee95e16..fe32fca 100644 (file)
@@ -28,7 +28,7 @@ use C4::Suggestions;
 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