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