[svn:Module-Build] r11683 - Module-Build/trunk/inc

[kwilliams]

Author: kwilliams
Date: Thu Aug 28 06:19:15 2008
New Revision: 11683

Modified:
   Module-Build/trunk/inc/latest.pm

Log:
Skip coderefs/arrayrefs instead of handling them wrong

Modified: Module-Build/trunk/inc/latest.pm
==============================================================================
--- Module-Build/trunk/inc/latest.pm    (original)
+++ Module-Build/trunk/inc/latest.pm    Thu Aug 28 06:19:15 2008
@@ -74,12 +74,14 @@
   return;
 }
 
+# Look for the given path in @INC.
 sub _search_INC {
   # TODO: doesn't handle coderefs or arrayrefs or objects in @INC, but
   # it probably should
   my ($self, $file) = @_;
 
   foreach my $dir (@INC) {
+    next if ref $dir;
     my $try = File::Spec->catfile($dir, $file);
     return $try if -e $try;
   }
@@ -87,6 +89,7 @@
   return;
 }
 
+# Translate a module name into a directory/file.pm to search for in @INC
 sub _mod2path {
   my ($self, $mod) = @_;
   my @parts = split /::/, $mod;