From 3676186f84eaadd4e1f4ee1588bf7a05ad1e8b00 Mon Sep 17 00:00:00 2001
From: Graham Knop <haarg@haarg.org>
Date: Sun, 30 Jul 2023 23:15:46 +0200
Subject: [PATCH] fix imports from File::Spec::Functions

File::Spec does not export anything, so passing arguments to its use
line is incorrect. Instead, export and use the functions from
File::Spec::Functions.

The extra arguments to File::Spec were ignored by perl, but future perl
versions are intending to throw an error for arguments being passed to
an undefined import method.
---
 lib/InfluxDB/Writer/RememberingFileTailer.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/InfluxDB/Writer/RememberingFileTailer.pm b/lib/InfluxDB/Writer/RememberingFileTailer.pm
index 150f321..a2daff5 100644
--- a/lib/InfluxDB/Writer/RememberingFileTailer.pm
+++ b/lib/InfluxDB/Writer/RememberingFileTailer.pm
@@ -13,8 +13,7 @@ use Hijk ();
 use Carp qw(croak);
 use InfluxDB::LineProtocol qw(line2data data2line);
 use Log::Any qw($log);
-use File::Spec::Functions;
-use File::Spec qw(splitpath);
+use File::Spec::Functions qw(catfile splitpath);
 
 extends 'InfluxDB::Writer::FileTailer';
 
@@ -38,7 +37,7 @@ sub archive_file {
     my $file = shift;
 
     my $done_dir = $self->done_dir;
-    my ( $vol, $dirs, $basename ) = File::Spec->splitpath($file);
+    my ( $vol, $dirs, $basename ) = splitpath($file);
 
     my $destination = catfile( $done_dir, $basename );
     my $count = 0;