[svn:Module-Build] r12861 - Module-Build/trunk/lib/Module/Build

Author: dagolden
Date: Fri Jun 19 03:32:42 2009
New Revision: 12861

Modified:
   Module-Build/trunk/lib/Module/Build/Base.pm

Log:
PL file checks need canonical file names

Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm	(original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm	Fri Jun 19 03:32:42 2009
@@ -3467,8 +3467,9 @@
     return $_ = {$_ => 1};
   }
   
-  my $pl_files = $self->PL_files || {};
-  return $_ = { map {$_ => 1} grep !$pl_files->{$_}, $self->_files_in('bin') };
+  my %pl_files = map { File::Spec->canonpath($_) => 1 }
+                 keys %{ $self->PL_files };
+  return $_ = { map {$_ => 1} grep !$pl_files{$_}, $self->_files_in('bin') };
 }
 BEGIN { *scripts = \&script_files; }