X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a1ba7ec6b0cd830be362a1f8b7d37214011a16ad..4d88a840da7e1443b8de7e08e084c6063ded18b6:/ext/File-DosGlob/t/DosGlob.t

diff --git a/ext/File-DosGlob/t/DosGlob.t b/ext/File-DosGlob/t/DosGlob.t
index edae752..600b87a 100644
--- a/ext/File-DosGlob/t/DosGlob.t
+++ b/ext/File-DosGlob/t/DosGlob.t
@@ -10,7 +10,7 @@ use File::DosGlob;
 use FindBin;
 use File::Spec::Functions;
 BEGIN {
-    chdir catfile $FindBin::Bin, (updir)x3, 't';
+    chdir catdir $FindBin::Bin, (updir)x3, 't';
     @INC = '../lib';
 }
 
@@ -151,5 +151,6 @@ SKIP: {
     $count = sv_count();
     eval '$x+'x(1+rand() * 100) . '<*>';
     $count2 = sv_count();
-    is $count2, $count, 'no leak when partly iterated caller is freed';
+    cmp_ok $count2, '<=', $count,
+     'no leak when partly iterated caller is freed';
 }