diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2017-04-28 14:32:31 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2017-04-28 14:32:31 +0200 |
| commit | ed9ac7c472f724d76e07661f9c2e3084240786a7 (patch) | |
| tree | f64caa6ab057ab9acb79875ca6a4602ed022f09e /lib/Kratos | |
| parent | a61640475b9ee9140cc25b7d0a8ce12ed19ce1f2 (diff) | |
support name suffixes
Diffstat (limited to 'lib/Kratos')
| -rw-r--r-- | lib/Kratos/DFADriver.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Kratos/DFADriver.pm b/lib/Kratos/DFADriver.pm index b59dec1..ea37956 100644 --- a/lib/Kratos/DFADriver.pm +++ b/lib/Kratos/DFADriver.pm @@ -1078,7 +1078,13 @@ sub archive_files { ) ); - $tar->write("../data/$self->{lp}{timestamp}_$self->{class_name}.tar"); + my $filename = "../data/$self->{lp}{timestamp}_$self->{class_name}"; + if ($self->{filename_suffix}) { + $filename .= '_' . $self->{filename_suffix}; + } + $filename .= '.tar'; + + $tar->write($filename); return $self; } |