* Avoid loading modules from relative paths in @inc for Text::Diff etc.

Also reported by John Lightsey.
audreyt · Apr 6, 2015 · c41e888 · c41e888
1 parent 8a91645
commit c41e888
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/Module/Signature.pm b/lib/Module/Signature.pm
@@ -119,6 +119,8 @@ sub _verify {
     my $sigtext   = shift || '';
     my $plaintext = shift || '';
 
+    # Avoid loading modules from relative paths in @INC.
+    local @INC = grep { File::Spec->file_name_is_absolute($_) } @INC;
     local $SIGNATURE = $signature if $signature ne $SIGNATURE;
 
     if ($AutoKeyRetrieve and !$CanKeyRetrieve) {