change build number calculation to be more accurate

[spider.git] / perl / BadWords.pm

diff --git a/perl/BadWords.pm b/perl/BadWords.pm
index ff9dd04c8b4e3b70a634828862420fcac1ccaa8a..2336bb0468e22b1b95e3b517f5750c6397dd9fc2 100644 (file)
--- a/perl/BadWords.pm
+++ b/perl/BadWords.pm
@@ -19,6 +19,12 @@ use vars qw(%badwords $fn);
 $fn = "$main::data/badwords";
 %badwords = ();
 
+use vars qw($VERSION $BRANCH);
+$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ );
+$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ ) || 0;
+$main::build += $VERSION;
+$main::branch += $BRANCH;
+
 # load the badwords file
 sub load
 {