Title: [opsview] [11261] move perl->xs to top
- Revision
- 11261
- Author
- aburzynski
- Date
- 2013-01-28 16:16:19 +0000 (Mon, 28 Jan 2013)
Log Message
move perl->xs to top
Modified Paths
Modified: trunk/opsview-core/lib/Opsview/Utils/NDOLogsImporter.pm
===================================================================
--- trunk/opsview-core/lib/Opsview/Utils/NDOLogsImporter.pm 2013-01-28 14:54:11 UTC (rev 11260)
+++ trunk/opsview-core/lib/Opsview/Utils/NDOLogsImporter.pm 2013-01-28 16:16:19 UTC (rev 11261)
@@ -24,6 +24,13 @@
use DBI;
use File::Slurp qw( read_file );
+sub timeval($) {
+ my ( $s, $ms ) = split( /\./, $_[0], 2 );
+
+ # list context - ( seconds, miliseconds )
+ return ( $s, $ms || 0 );
+}
+
### include/protoapi.h
sub NDO_API_NONE() {""}
@@ -1296,13 +1303,6 @@
return $latest_time;
}
-sub timeval($) {
- my ( $s, $ms ) = split( /\./, $_[0], 2 );
-
- # list context - ( seconds, miliseconds )
- return ( $s, $ms || 0 );
-}
-
sub get_object_id_with_insert {
my ( $name1, $name2 ) = @_[ ARG_NAME1(), ARG_NAME2() ];
_______________________________________________
Opsview-checkins mailing list
[email protected]
http://lists.opsview.org/lists/listinfo/opsview-checkins
