[Module-build-checkins] [svn:Module-Build] r5899 - Module-Build/trunk/lib/Module/Build

[<kwi...@cv...>]

Author: kwilliams
Date: Tue Apr 11 20:55:28 2006
New Revision: 5899

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

Log:
Use -x instead of a stat value

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	Tue Apr 11 20:55:28 2006
@@ -3934,8 +3934,7 @@
   $self->log_info("$file -> $to_path\n") if $args{verbose};
   File::Copy::copy($file, $to_path) or die "Can't copy('$file', '$to_path'): $!";
   # mode is read-only + (executable if source is executable)
-  my $mode = (stat $file)[2];
-  $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
+  my $mode = 0444 | ( -x $file ? 0111 : 0 );
   chmod( $mode, $to_path );
 
   return $to_path;