[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