From: Vincent Pit <vince@profvince.com>
Date: Fri, 7 Sep 2012 11:31:45 +0000 (+0200)
Subject: Clean leftovers in %INC when the module could not be loaded
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=94d725fac2ac4e3361763cac7c338f228c136205;p=perl%2Fmodules%2FVPIT-TestHelpers.git

Clean leftovers in %INC when the module could not be loaded
---

diff --git a/lib/VPIT/TestHelpers.pm b/lib/VPIT/TestHelpers.pm
index 18f2b17..591adf2 100644
--- a/lib/VPIT/TestHelpers.pm
+++ b/lib/VPIT/TestHelpers.pm
@@ -51,6 +51,8 @@ IMPORTER
   }
   diag "Using $pkg $ver";
  } else {
+  (my $file = "$pkg.pm") =~ s{::}{/}g;
+  delete $INC{$file};
   skip_all "$spec $desc";
  }
 }