diff options
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; } |