syntax error has been corrected

This commit is contained in:
btoumi 2006-05-23 15:01:12 +00:00
parent e55120f85f
commit 55171a6af4

View 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