[Module-build-checkins] [svn:Module-Build] r5899 - Module-Build/trunk/lib/Module/Build
Status: Beta
Brought to you by:
kwilliams
|
From: <kwi...@cv...> - 2006-04-12 03:57:07
|
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;
|