Index: /trunk/cgi-bin/IPDB.pm
===================================================================
--- /trunk/cgi-bin/IPDB.pm	(revision 876)
+++ /trunk/cgi-bin/IPDB.pm	(revision 877)
@@ -3545,5 +3545,5 @@
 
   # dodge a bullet with module version "numbers"
-  my ($ver) = ($IPDB::VERSION =~ /^([\d.]+)(?:^\d|$)/);
+  my ($ver) = ($IPDB::VERSION =~ /^(\d+(?:\.\d+)?)/);
 
   foreach my $recip (keys %reciplist) {