diff options
Diffstat (limited to 'lib/App/BorgRestore/Helper.pm')
-rw-r--r-- | lib/App/BorgRestore/Helper.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/App/BorgRestore/Helper.pm b/lib/App/BorgRestore/Helper.pm index 869d4ee..383a49f 100644 --- a/lib/App/BorgRestore/Helper.pm +++ b/lib/App/BorgRestore/Helper.pm @@ -3,9 +3,12 @@ use v5.14; use strictures 2; use autodie; +use Exporter 'import'; use Function::Parameters; use POSIX (); +our @EXPORT_OK = qw(untaint); + =encoding utf-8 =head1 NAME @@ -23,10 +26,6 @@ fun untaint($data, $regex) { return $1; } -fun untaint_archive_name($archive) { - return untaint($archive, qr([a-zA-Z0-9-:+\.]+)); -} - fun format_timestamp($timestamp) { return POSIX::strftime "%a. %F %H:%M:%S %z", localtime $timestamp; } |