diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-12-16 17:00:45 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-12-16 17:19:08 -0800 |
commit | 4d88a840da7e1443b8de7e08e084c6063ded18b6 (patch) | |
tree | f42a35d3cead4e4cb64ac2765a020c10751d4a69 /ext/File-DosGlob | |
parent | c53e3a758f27b58511d4fe7bc5ba1068c92552f7 (diff) | |
download | perl-4d88a840da7e1443b8de7e08e084c6063ded18b6.tar.gz |
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.
Diffstat (limited to 'ext/File-DosGlob')
-rw-r--r-- | ext/File-DosGlob/t/DosGlob.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/File-DosGlob/t/DosGlob.t b/ext/File-DosGlob/t/DosGlob.t index b3e0043cfc..600b87a0b5 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'; } |