]> git.vpit.fr Git - perl/modules/Task-Devel-Cover-Recommended.git/commitdiff
Make the kwalitee test unlink its byproducts
authorVincent Pit <vince@profvince.com>
Mon, 20 Aug 2012 08:21:06 +0000 (10:21 +0200)
committerVincent Pit <vince@profvince.com>
Mon, 20 Aug 2012 08:21:06 +0000 (10:21 +0200)
t/99-kwalitee.t

index 4a664573fa9b2090bad47cd5c9343c7b509121ff..ea20ee1951fc67bdebb61f336affd240c60d4183 100644 (file)
@@ -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';