replaced regex with CORE::time

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@674 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/Application.pm b/src/perlmods/OpenSRF/Application.pm
index 99803e8..efd77a6 100644 (file)
--- a/src/perlmods/OpenSRF/Application.pm
+++ b/src/perlmods/OpenSRF/Application.pm
@@ -709,9 +709,7 @@ __PACKAGE__->register_method(
 
 sub time_method {
        my( $self, $conn ) = @_;
-       my $t = time;
-       $t =~ s/\..*//og; # - remove milli/microseconds from Time::HiRes (should we strip this?)
-       return $t;
+       return CORE::time;
 }
 __PACKAGE__->register_method(
        method => 'time_method',