Commit 5dfa1f1e authored by Andy Yates's avatar Andy Yates
Browse files

copy is on target

parent 7582b6b8
......@@ -17,7 +17,7 @@ sub decompress {
my $target = File::Spec->catdir($target_dir, $file);
my $gunzipped_target = $target;
$gunzipped_target =~ s/.gz$//;
$self->info('Copying from %s to %s', $source, $gunzipped_target);
$self->info('Copying from %s to %s', $source, $target);
copy($source, $target) or throw "Cannot copy $source to $target: $!";
$self->info('Decompressing %s to %s', $source, $gunzipped_target);
system("gunzip -f $target") and throw sprintf('Could not gunzip. Exited with code %d', ($? >>8));
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment