cvs commit: parrot/tools/dev install_files.pl

[Steve Fink]

cvsuser     04/10/03 21:50:21

  Modified:    tools/dev install_files.pl
  Log:
  Preserve file mode bits (skating the edge of portability here)
  
  Revision  Changes    Path
  1.7       +3 -1      parrot/tools/dev/install_files.pl
  
  Index: install_files.pl
  ===================================================================
  RCS file: /cvs/public/parrot/tools/dev/install_files.pl,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -w -r1.6 -r1.7
  --- install_files.pl  4 Oct 2004 04:23:24 -0000       1.6
  +++ install_files.pl  4 Oct 2004 04:50:21 -0000       1.7
  @@ -1,7 +1,7 @@
   #! perl -w
   ################################################################################
   # Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -# $Id: install_files.pl,v 1.6 2004/10/04 04:23:24 sfink Exp $
  +# $Id: install_files.pl,v 1.7 2004/10/04 04:50:21 sfink Exp $
   ################################################################################
   
   =head1 TITLE
  @@ -185,4 +185,6 @@
   foreach (@files) {
       my ($src, $dest) = @$_;
       copy($src, $dest) or die "copy $src to $dest: $!\n";
  +    my $mode = (stat($src))[2];
  +    chmod $mode, $dest;
   }