Commit 7582b6b8 authored by Andy Yates's avatar Andy Yates
Browse files

Better documentation

parent f943fb26
......@@ -15,11 +15,13 @@ sub decompress {
my $target_dir = $self->target_dir();
my ($vol, $dir, $file) = File::Spec->splitpath($source);
my $target = File::Spec->catdir($target_dir, $file);
$self->info('Decompressing %s to %s', $source, $target);
my $gunzipped_target = $target;
$gunzipped_target =~ s/.gz$//;
$self->info('Copying from %s to %s', $source, $gunzipped_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));
$target =~ s/.gz$//;
return $target;
return $gunzipped_target;
}
sub repeat_mask_date {
......
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