removed $VERSION construct which caused undef warnings when not under svn, and only...
authorsboyette <sboyette@9efc2488-bf62-4759-914b-345cdb29e865>
Tue, 25 Aug 2009 15:45:01 +0000 (15:45 +0000)
committersboyette <sboyette@9efc2488-bf62-4759-914b-345cdb29e865>
Tue, 25 Aug 2009 15:45:01 +0000 (15:45 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1752 9efc2488-bf62-4759-914b-345cdb29e865

src/perl/lib/OpenSRF/Utils.pm
src/perl/lib/OpenSRF/Utils/Config.pm
src/perl/t/09-Utils.t

index 01ced81..d527521 100644 (file)
@@ -1,51 +1,48 @@
 package OpenSRF::Utils;
 
 package OpenSRF::Utils;
 
-=head1 NAME 
+use Time::Local;
+use Errno;
+use POSIX;
+use FileHandle;
+use Digest::MD5 qw(md5 md5_hex md5_base64);
+use Exporter;
+use DateTime;
+use DateTime::Format::ISO8601;
+use DateTime::TimeZone;
+
+=head1 NAME
 
 OpenSRF::Utils
 
 
 OpenSRF::Utils
 
-=head1 DESCRIPTION 
+=head1 DESCRIPTION
 
 This is a container package for methods that are useful to derived modules.
 It has no constructor, and is generally not useful by itself... but this
 is where most of the generic methods live.
 
 This is a container package for methods that are useful to derived modules.
 It has no constructor, and is generally not useful by itself... but this
 is where most of the generic methods live.
-
-=head1 METHODS 
 
 
+=head1 VERSION
 
 =cut
 
 
 =cut
 
-use vars qw/@ISA $AUTOLOAD %EXPORT_TAGS @EXPORT_OK @EXPORT $VERSION/;
-push @ISA, 'Exporter';
-
-$VERSION = do { my @r=(q$Revision$=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+our $VERSION = 1.000;
 
 
-use Time::Local;
-use Errno;
-use POSIX;
-use FileHandle;
-#use Cache::FileCache;
-#use Storable qw(dclone);
-use Digest::MD5 qw(md5 md5_hex md5_base64);
-use Exporter;
-use DateTime;
-use DateTime::Format::ISO8601;
-use DateTime::TimeZone;
-
-our $date_parser = DateTime::Format::ISO8601->new;
-
-# This turns errors into warnings, so daemons don't die.
-#$Storable::forgive_me = 1;
+use vars qw/@ISA $AUTOLOAD %EXPORT_TAGS @EXPORT_OK @EXPORT/;
+push @ISA, 'Exporter';
 
 %EXPORT_TAGS = (
        common          => [qw(interval_to_seconds seconds_to_interval sendmail tree_filter)],
        daemon          => [qw(safe_fork set_psname daemonize)],
        datetime        => [qw(clense_ISO8601 gmtime_ISO8601 interval_to_seconds seconds_to_interval)],
 );
 
 %EXPORT_TAGS = (
        common          => [qw(interval_to_seconds seconds_to_interval sendmail tree_filter)],
        daemon          => [qw(safe_fork set_psname daemonize)],
        datetime        => [qw(clense_ISO8601 gmtime_ISO8601 interval_to_seconds seconds_to_interval)],
 );
-
 Exporter::export_ok_tags('common','daemon','datetime');  # add aa, cc and dd to @EXPORT_OK
 
 Exporter::export_ok_tags('common','daemon','datetime');  # add aa, cc and dd to @EXPORT_OK
 
+our $date_parser = DateTime::Format::ISO8601->new;
+
+=head1 METHODS
+
+
+=cut
+
 sub AUTOLOAD {
        my $self = shift;
        my $type = ref($self) or return undef;
 sub AUTOLOAD {
        my $self = shift;
        my $type = ref($self) or return undef;
index ca400f7..9ecfc0e 100755 (executable)
@@ -2,13 +2,13 @@ package OpenSRF::Utils::Config::Section;
 
 no strict 'refs';
 
 
 no strict 'refs';
 
-use vars qw/@ISA $AUTOLOAD $VERSION/;
+use vars qw/@ISA $AUTOLOAD/;
 push @ISA, qw/OpenSRF::Utils/;
 
 use OpenSRF::Utils (':common');
 use Net::Domain qw/hostfqdn/;
 
 push @ISA, qw/OpenSRF::Utils/;
 
 use OpenSRF::Utils (':common');
 use Net::Domain qw/hostfqdn/;
 
-$VERSION = do { my @r=(q$Revision$=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+our $VERSION = "1.000";
 
 my %SECTIONCACHE;
 my %SUBSECTION_FIXUP;
 
 my %SECTIONCACHE;
 my %SUBSECTION_FIXUP;
@@ -190,11 +190,6 @@ though.
 =head1 METHODS
 
 
 =head1 METHODS
 
 
-=cut
-
-
-$VERSION = do { my @r=(q$Revision$=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
-
 
 =head2 OpenSRF::Utils::Config->load( config_file => '/some/config/file.cnf' )
 
 
 =head2 OpenSRF::Utils::Config->load( config_file => '/some/config/file.cnf' )
 
index ddbf43a..235f1c7 100644 (file)
@@ -1,15 +1,7 @@
 #!perl -T
 
 #!perl -T
 
-use Test::More tests => 8;
+use Test::More tests => 1;
 
 BEGIN {
        use_ok( 'OpenSRF::Utils' );
 }
 
 BEGIN {
        use_ok( 'OpenSRF::Utils' );
 }
-
-use_ok( 'OpenSRF::Utils::Cache' );
-use_ok( 'OpenSRF::Utils::Config' );
-use_ok( 'OpenSRF::Utils::JSON' );
-use_ok( 'OpenSRF::Utils::Logger' );
-use_ok( 'OpenSRF::Utils::LogServer' );
-use_ok( 'OpenSRF::Utils::SettingsClient' );
-use_ok( 'OpenSRF::Utils::SettingsParser' );