From: Father Chrysostomos <sprout@cpan.org>
Date: Mon, 17 Dec 2012 01:00:45 +0000 (-0800)
Subject: Make DosGlob.t more resilient
X-Git-Tag: v5.17.7~26
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/4d88a840da7e1443b8de7e08e084c6063ded18b6?ds=inline

Make DosGlob.t more resilient

If the sv count goes *down* (which doesn’t happen on my machine, but see
<CANgJU+W8_nVg9-YVRBe2r=ZYCbu9-R3RPf0tbH-XWrtVxYhGpA@mail.gmail.com>), we
certainly don’t have a leak.
---

diff --git a/ext/File-DosGlob/t/DosGlob.t b/ext/File-DosGlob/t/DosGlob.t
index b3e0043..600b87a 100644
--- a/ext/File-DosGlob/t/DosGlob.t
+++ b/ext/File-DosGlob/t/DosGlob.t
@@ -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';
 }