X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FBadWords.pm;h=2336bb0468e22b1b95e3b517f5750c6397dd9fc2;hb=8720504a4ba0e0df8fc3932f3eb55a63decc8e9a;hp=ff9dd04c8b4e3b70a634828862420fcac1ccaa8a;hpb=8e0eef80216fbb2bca3606daf5797e39b2889d7a;p=spider.git

diff --git a/perl/BadWords.pm b/perl/BadWords.pm
index ff9dd04c..2336bb04 100644
--- 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
 {