X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Antlers.git;a=blobdiff_plain;f=lib%2FMooseX%2FAntlers%2FStealImport.pm;h=404a540caf7c14e653e5678ec28ea9890c37f11e;hp=b961452f8d927b3da5a4a7dca59107159ccbf691;hb=1fe11d3f326809ef5533788cc823f88a01224c53;hpb=48972854790a1af6ed892edad6d761f8da2bef3d diff --git a/lib/MooseX/Antlers/StealImport.pm b/lib/MooseX/Antlers/StealImport.pm index b961452..404a540 100644 --- 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}) { {