X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-File-KDBX;a=blobdiff_plain;f=t%2Flib%2FTestCommon.pm;h=e499251a896679b00f7428228aaa806f228e976a;hp=31114605bd077424c86577e4b9e87b00cbcbf590;hb=eb5adf956fc6b9285b43ce6965eea728573e7864;hpb=81604125cc023132207802b4ae0ab4cea12c17fd

diff --git a/t/lib/TestCommon.pm b/t/lib/TestCommon.pm
index 3111460..e499251 100644
--- a/t/lib/TestCommon.pm
+++ b/t/lib/TestCommon.pm
@@ -6,7 +6,7 @@ use strict;
 use Data::Dumper;
 use File::KDBX::Constants qw(:magic :kdf);
 use File::KDBX::Util qw(can_fork dumper);
-use File::Spec::Functions qw(catfile);
+use File::Spec;
 use FindBin qw($Bin);
 use Test::Fatal;
 use Test::Deep;
@@ -36,7 +36,6 @@ sub import {
     # Just export a random assortment of things useful for testing.
     no strict 'refs';
     *{"${caller}::dumper"}      = \&File::KDBX::Util::dumper;
-    *{"${caller}::catfile"}     = \&File::Spec::Functions::catfile;
 
     *{"${caller}::exception"}   = \&Test::Fatal::exception;
     *{"${caller}::warning"}     = \&Test::Warnings::warning;
@@ -50,7 +49,7 @@ sub import {
 }
 
 sub testfile {
-    return catfile($Bin, 'files', @_);
+    return File::Spec->catfile($Bin, 'files', @_);
 }
 
 sub dump_test_deep_template {