Make the kwalitee test unlink its byproducts

diff --git a/t/99-kwalitee.t b/t/99-kwalitee.t
index 4a664573fa9b2090bad47cd5c9343c7b509121ff..ea20ee1951fc67bdebb61f336affd240c60d4183 100644 (file)
--- a/t/99-kwalitee.t
+++ b/t/99-kwalitee.t
@@ -5,6 +5,10 @@ use warnings;
 
 use Test::More;
 
 
 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';
 
 eval { require Parse::RecDescent; 'Parse::RecDescent'->VERSION('1.967006') }
   or plan skip_all => 'Parse::RecDescent version 1.967006 or greater required';