cvs commit: parrot/tools/dev install_files.pl

[Steve Fink]

cvsuser     04/10/03 21:23:24

  Modified:    tools/dev install_files.pl
  Log:
  Remove useless info from error messages.
  
  Revision  Changes    Path
  1.6       +3 -3      parrot/tools/dev/install_files.pl
  
  Index: install_files.pl
  ===================================================================
  RCS file: /cvs/public/parrot/tools/dev/install_files.pl,v
  retrieving revision 1.5
  retrieving revision 1.6
  diff -u -w -r1.5 -r1.6
  --- install_files.pl  4 Oct 2004 04:18:52 -0000       1.5
  +++ install_files.pl  4 Oct 2004 04:23:24 -0000       1.6
  @@ -1,7 +1,7 @@
   #! perl -w
   ################################################################################
   # Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -# $Id: install_files.pl,v 1.5 2004/10/04 04:18:52 sfink Exp $
  +# $Id: install_files.pl,v 1.6 2004/10/04 04:23:24 sfink Exp $
   ################################################################################
   
   =head1 TITLE
  @@ -177,12 +177,12 @@
               $dir = dirname($dir);
           }
           foreach (@dirs) {
  -            mkdir($_, 0777) or die "mkdir $_: $!";
  +            mkdir($_, 0777) or die "mkdir $_: $!\n";
           }
       }
   }
   
   foreach (@files) {
       my ($src, $dest) = @$_;
  -    copy($src, $dest) or die "copy $src to $dest: $!";
  +    copy($src, $dest) or die "copy $src to $dest: $!\n";
   }