1#!/usr/bin/perl 2 3use File::Copy; 4use strict; 5use warnings; 6 7die "wrong number of arguments" if @ARGV != 2; 8my ($source, $target) = @ARGV; 9exit if $source !~ /history/; 10if ($^O eq 'msys') 11{ 12 # make a windows path look like an msys path if necessary 13 $source =~ s!^([A-Za-z]):!'/' . lc($1)!e; 14 $source =~ s!\\!/!g; 15} 16 17copy($source, $target) or die "couldn't copy $source to $target: $!"; 18