[Orca-checkins] r409 - trunk/orca/lib/Orca

Blair Zajac blair at orcaware.com
Thu Dec 2 22:47:53 PST 2004


Author: blair
Date: Thu Dec  2 22:45:44 2004
New Revision: 409

Modified:
   trunk/orca/lib/Orca/Config.pm
   trunk/orca/lib/Orca/Constants.pm
   trunk/orca/lib/Orca/DataFile.pm
   trunk/orca/lib/Orca/HTMLFile.pm
   trunk/orca/lib/Orca/ImageFile.pm
   trunk/orca/lib/Orca/NewState.pm
   trunk/orca/lib/Orca/OldState.pm
   trunk/orca/lib/Orca/OpenFileHash.pm
   trunk/orca/lib/Orca/RRDFile.pm
   trunk/orca/lib/Orca/SourceFile.pm
   trunk/orca/lib/Orca/SourceFileIDs.pm
   trunk/orca/lib/Orca/Utils.pm
Log:
* lib/Orca/Config.pm,
* lib/Orca/Constants.pm,
* lib/Orca/DataFile.pm,
* lib/Orca/HTMLFile.pm,
* lib/Orca/ImageFile.pm,
* lib/Orca/NewState.pm,
* lib/Orca/OldState.pm,
* lib/Orca/OpenFileHash.pm,
* lib/Orca/RRDFile.pm,
* lib/Orca/SourceFileIDs.pm,
* lib/Orca/SourceFile.pm,
* lib/Orca/Utils.pm:
  Since the Subversion revision number is used for Perl's VERSION
  number and instead of having integer Perl VERSION's that are very
  large, divide the Subversion revision number by 100.0 to get version
  numbers in line with Perl's standard version number with two
  fractional digits.


Modified: trunk/orca/lib/Orca/Config.pm
==============================================================================
--- trunk/orca/lib/Orca/Config.pm	(original)
+++ trunk/orca/lib/Orca/Config.pm	Thu Dec  2 22:45:44 2004
@@ -30,7 +30,7 @@
 use vars qw(@EXPORT_OK @ISA $VERSION);
 
 @ISA     = qw(Exporter);
-$VERSION = substr q$Revision: 0.01 $, 10;
+$VERSION = (substr q$Revision$, 10)/100.0;
 
 # Export the main subroutine to load configuration data and a subroutine
 # to get a color indexed by an integer.

Modified: trunk/orca/lib/Orca/Constants.pm
==============================================================================
--- trunk/orca/lib/Orca/Constants.pm	(original)
+++ trunk/orca/lib/Orca/Constants.pm	Thu Dec  2 22:45:44 2004
@@ -14,7 +14,7 @@
 use Exporter;
 use vars qw(@EXPORT_OK @ISA $VERSION);
 @ISA     = qw(Exporter);
-$VERSION = substr q$Revision: 0.01 $, 10;
+$VERSION = (substr q$Revision$, 10)/100.0;
 
 # ORCA_VER_MAJOR        Orca's major version number.  Increment when
 #                       incompatible changes are made to published

Modified: trunk/orca/lib/Orca/DataFile.pm
==============================================================================
--- trunk/orca/lib/Orca/DataFile.pm	(original)
+++ trunk/orca/lib/Orca/DataFile.pm	Thu Dec  2 22:45:44 2004
@@ -18,7 +18,7 @@
 
 @ISA       = qw(Exporter);
 @EXPORT_OK = qw(ORCA_DATAFILE_LAST_INDEX);
-$VERSION   = substr q$Revision: 0.01 $, 10;
+$VERSION   = (substr q$Revision$, 10)/100.0;
 
 # Use a blessed reference to an array as the storage for this class.
 # Define these constant subroutines as indexes into the array.

Modified: trunk/orca/lib/Orca/HTMLFile.pm
==============================================================================
--- trunk/orca/lib/Orca/HTMLFile.pm	(original)
+++ trunk/orca/lib/Orca/HTMLFile.pm	Thu Dec  2 22:45:44 2004
@@ -15,7 +15,7 @@
 use Orca::Constants qw($ORCA_VERSION);
 use vars            qw(@EXPORT_OK @ISA $VERSION);
 @ISA     = qw(Exporter);
-$VERSION = substr q$Revision: 0.02 $, 10;
+$VERSION = (substr q$Revision$, 10)/100.0;
 
 # $html_hr is the HTML <hr/> tag with the correct width attribute.
 use vars         qw($html_hr);

Modified: trunk/orca/lib/Orca/ImageFile.pm
==============================================================================
--- trunk/orca/lib/Orca/ImageFile.pm	(original)
+++ trunk/orca/lib/Orca/ImageFile.pm	Thu Dec  2 22:45:44 2004
@@ -29,7 +29,7 @@
 
 use vars            qw($VERSION);
 
-$VERSION = substr q$Revision: 0.01 $, 10;
+$VERSION = (substr q$Revision$, 10)/100.0;
 
 # Use a blessed reference to an array as the storage for this class.
 # Define these constant subroutines as indexes into the array.  If

Modified: trunk/orca/lib/Orca/NewState.pm
==============================================================================
--- trunk/orca/lib/Orca/NewState.pm	(original)
+++ trunk/orca/lib/Orca/NewState.pm	Thu Dec  2 22:45:44 2004
@@ -18,7 +18,7 @@
 use vars            qw(@EXPORT_OK @ISA $VERSION);
 
 @ISA     = qw(Exporter);
-$VERSION = substr q$Revision: 0.01 $, 10;
+$VERSION = (substr q$Revision$, 10)/100.0;
 
 # Create one global state object for the whole program.
 use vars      qw($orca_state);

Modified: trunk/orca/lib/Orca/OldState.pm
==============================================================================
--- trunk/orca/lib/Orca/OldState.pm	(original)
+++ trunk/orca/lib/Orca/OldState.pm	Thu Dec  2 22:45:44 2004
@@ -18,7 +18,7 @@
 use vars                qw(@EXPORT_OK @ISA $VERSION);
 
 @ISA     = qw(Exporter);
-$VERSION = substr q$Revision: 0.01 $, 10;
+$VERSION = (substr q$Revision$, 10)/100.0;
 
 # Create one global state object for the whole program.
 use vars          qw($orca_old_state);

Modified: trunk/orca/lib/Orca/OpenFileHash.pm
==============================================================================
--- trunk/orca/lib/Orca/OpenFileHash.pm	(original)
+++ trunk/orca/lib/Orca/OpenFileHash.pm	Thu Dec  2 22:45:44 2004
@@ -18,7 +18,7 @@
 use vars                qw(@EXPORT_OK @ISA $VERSION);
 
 @ISA     = qw(Exporter);
-$VERSION = substr q$Revision: 0.01 $, 10;
+$VERSION = (substr q$Revision$, 10)/100.0;
 
 # Set up a cache of 100 open file descriptors for the source data
 # files.  This leaves a large number of free file descriptors for

Modified: trunk/orca/lib/Orca/RRDFile.pm
==============================================================================
--- trunk/orca/lib/Orca/RRDFile.pm	(original)
+++ trunk/orca/lib/Orca/RRDFile.pm	Thu Dec  2 22:45:44 2004
@@ -25,7 +25,7 @@
 use Orca::Utils     qw(name_to_fsname recursive_mkdir);
 use vars            qw($VERSION);
 
-$VERSION = substr q$Revision: 0.01 $, 10;
+$VERSION = (substr q$Revision$, 10)/100.0;
 
 # Use a blessed reference to an array as the storage for this class.
 # Define these constant subroutines as indexes into the array.  If the

Modified: trunk/orca/lib/Orca/SourceFile.pm
==============================================================================
--- trunk/orca/lib/Orca/SourceFile.pm	(original)
+++ trunk/orca/lib/Orca/SourceFile.pm	Thu Dec  2 22:45:44 2004
@@ -32,7 +32,7 @@
 use vars                qw(@ISA $VERSION);
 
 @ISA     = qw(Orca::DataFile);
-$VERSION = substr q$Revision: 0.01 $, 10;
+$VERSION = (substr q$Revision$, 10)/100.0;
 
 # This is a static variable that lists all of the column names for a
 # particular group.

Modified: trunk/orca/lib/Orca/SourceFileIDs.pm
==============================================================================
--- trunk/orca/lib/Orca/SourceFileIDs.pm	(original)
+++ trunk/orca/lib/Orca/SourceFileIDs.pm	Thu Dec  2 22:45:44 2004
@@ -18,7 +18,7 @@
 use vars                 qw(@EXPORT_OK @ISA $VERSION);
 
 @ISA     = qw(Exporter);
-$VERSION = substr q$Revision: 0.01 $, 10;
+$VERSION = (substr q$Revision$, 10)/100.0;
 
 # This module contains three variables.  The first is a hash keyed by
 # filename with a numeric value.  The second is an array, where value

Modified: trunk/orca/lib/Orca/Utils.pm
==============================================================================
--- trunk/orca/lib/Orca/Utils.pm	(original)
+++ trunk/orca/lib/Orca/Utils.pm	Thu Dec  2 22:45:44 2004
@@ -28,7 +28,7 @@
                 recursive_mkdir
                 unique);
 @ISA       = qw(Exporter);
-$VERSION   = substr q$Revision: 0.01 $, 10;
+$VERSION   = (substr q$Revision$, 10)/100.0;
 
 # Take a string and capatialize only the first character of the
 # string.



More information about the Orca-checkins mailing list