correctly remove %INC entries

[gitmo/MooseX-Antlers.git] / lib / MooseX / Antlers / StealImport.pm

diff --git a/lib/MooseX/Antlers/StealImport.pm b/lib/MooseX/Antlers/StealImport.pm
index b961452..404a540 100644 (file)
--- a/lib/MooseX/Antlers/StealImport.pm
+++ b/lib/MooseX/Antlers/StealImport.pm
@@ -34,9 +34,11 @@ sub import {
 sub unimport {
   my ($class, @unsteal_classes) = @_;
   foreach my $unsteal (@unsteal_classes) {
+    (my $pm_file = $unsteal) =~ s/::/\//g;
     if (exists $saved_inc{$unsteal}) {
-      (my $pm_file = $unsteal) =~ s/::/\//g;
       $INC{"${pm_file}.pm"} = delete $saved_inc{$unsteal};
+    } else {
+      delete $INC{"${pm_file}.pm"};
     }
     if (defined $saved_import{$unsteal}) {
       {