X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTask-Devel-Cover-Recommended.git;a=blobdiff_plain;f=t%2F99-kwalitee.t;h=ea20ee1951fc67bdebb61f336affd240c60d4183;hp=4a664573fa9b2090bad47cd5c9343c7b509121ff;hb=c8c63ca82acfd846da26784c952c9db37b22d574;hpb=bd5859258397f7af2e5df2c5f02f2bd1dd652fbe

diff --git a/t/99-kwalitee.t b/t/99-kwalitee.t
index 4a66457..ea20ee1 100644
--- a/t/99-kwalitee.t
+++ b/t/99-kwalitee.t
@@ -5,6 +5,10 @@ use warnings;
 
 use Test::More;
 
+sub VPIT::Guard::DESTROY { unlink for glob 'Debian_CPANTS.txt*' }
+
+my $guard = bless { }, 'VPIT::Guard';
+
 eval { require Parse::RecDescent; 'Parse::RecDescent'->VERSION('1.967006') }
   or plan skip_all => 'Parse::RecDescent version 1.967006 or greater required';