Rename &_initFileposition() to &GetFileposition() and allow to become exported.
authorStefan Schantl <stefan.schantl@ipfire.org>
Wed, 17 Feb 2016 11:59:21 +0000 (12:59 +0100)
committerStefan Schantl <stefan.schantl@ipfire.org>
Wed, 17 Feb 2016 11:59:21 +0000 (12:59 +0100)
Signed-off-by: Stefan Schantl <stefan.schantl@ipfire.org>
modules/Base.pm

index f29f543..0b785f1 100644 (file)
@@ -4,7 +4,7 @@ use warnings;
 
 use Exporter qw(import);
 
-our @EXPORT_OK = qw(GenerateMonitoredFiles DetectIPProtocolVersion FilePositions);
+our @EXPORT_OK = qw(GenerateMonitoredFiles GetFileposition DetectIPProtocolVersion FilePositions);
 
 use Net::IP;
 
@@ -107,7 +107,7 @@ sub FilePositions (\%\%) {
                        $new_file_positions{$file} = $current_file_positions{$file};
                } else {
                        # Call function to obtain the file position.
-                       my $position = &_initFileposition($file);
+                       my $position = &GetFileposition($file);
 
                        # Add filename and position to the temporary hash.
                        $new_file_positions{$file} = $position;
@@ -189,7 +189,7 @@ sub DetectIPProtocolVersion ($) {
 }
 
 #
-## Function for fileposition initialization.
+## Function to get the current (EOF) cursor postion.
 #
 ## This function is used to get the cursor position of the end of file (EOF) of
 ## a specified file.
@@ -198,7 +198,7 @@ sub DetectIPProtocolVersion ($) {
 ## with huge logfiles, at initialization time of the worker processes, the file will
 ## be opened once and the cursor position of the end of file (EOF) get stored.
 #
-sub _initFileposition ($) {
+sub GetFileposition ($) {
        my $file = $_[0];
 
        # Open the file.