blob: 5832b98ef42a18a04df75a47fd8cbf05bf2de1e3 (
plain)
1
2
3
4
5
6
7
8
9
10
|
#!/usr/bin/perl
use File::Copy;
use strict;
use warnings FATAL => 'all';
die "wrong number of arguments" if @ARGV != 2;
my ($source, $target) = @ARGV;
exit if $source !~ /history/;
copy($source, $target) or die "couldn't copy $source to $target: $!";
|
