Skip to content

Instantly share code, notes, and snippets.

@dagolden

dagolden/nopaste

Created February 6, 2015 15:03
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dagolden/98dd2db37fdd5706da4c to your computer and use it in GitHub Desktop.
Save dagolden/98dd2db37fdd5706da4c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
nopaste
diff --git a/lib/CPAN/Module.pm b/lib/CPAN/Module.pm
index 7d65b34..4fbbcab 100644
--- a/lib/CPAN/Module.pm
+++ b/lib/CPAN/Module.pm
@@ -621,7 +621,9 @@ sub _file_in_path {
}
foreach $dir (@$path) {
my $pmfile = File::Spec->catfile($dir,@packpath);
+ warn "*** looking for $pmfile\n" if $self->{ID} eq "IO::Tty";
if (-f $pmfile) {
+ warn "*** found it $pmfile\n" if $self->{ID} eq "IO::Tty";
return $pmfile;
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment