ChangeLogTag: Mon May 24 07:35:39 2004 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 27 insertions, 22 deletions

diff --git a/modules/Version.pm b/modules/Version.pm
index f1a9b4f5..4a5b275f 100644
--- a/modules/Version.pm
+++ b/modules/Version.pm
@@ -18,34 +18,39 @@ use strict;
 
 ## This is the starting major and minor version
 my($version) = '3.1';
-
-## Here we determine the beta version.  The base variable
-## is the negated number of existing ChangeLog entries at the
-## time of the release of the major and minor version.  We then
-## add the total number of ChangeLog entries to the base to
-## get the beta version.
-my($base) = -36;
-if (open(CLH, ::getBasePath() . '/ChangeLog')) {
-  while(<CLH>) {
-    if (/^\w\w\w\s/) {
-      ++$base;
-    }
-  }
-  close(CLH);
-
-  ## We then append the beta version number to the version string
-  $version .= ".$base";
-}
-else {
-  print "WARNING: Unable to determine the beta version number of MPC\n";
-}
-
+my($once)    = 1;
 
 # ************************************************************
 # Subroutine Section
 # ************************************************************
 
 sub get {
+  if ($once) {
+    ## We only need to do this once
+    $once = 0;
+
+    ## Here we determine the beta version.  The base variable
+    ## is the negated number of existing ChangeLog entries at the
+    ## time of the release of the major and minor version.  We then
+    ## add the total number of ChangeLog entries to the base to
+    ## get the beta version.
+    my($base) = -36;
+    if (open(CLH, ::getBasePath() . '/ChangeLog')) {
+      while(<CLH>) {
+        if (/^\w\w\w\s/) {
+          ++$base;
+        }
+      }
+      close(CLH);
+
+      ## We then append the beta version number to the version string
+      $version .= ".$base";
+    }
+    else {
+      print "WARNING: Unable to determine the beta version number of MPC\n";
+    }
+  }
+
   return $version;
 }