diff options
author | Florian Pritz <bluewind@xinu.at> | 2017-02-27 00:05:30 +0100 |
---|---|---|
committer | Florian Pritz <bluewind@xinu.at> | 2017-02-27 09:56:32 +0100 |
commit | 82bdef1a323fc46ad8499ccd17d3c255200696d4 (patch) | |
tree | aec53709686cb45c57a3c752b0a1dc3bba12c2b9 /lib/App/BorgRestore/Helper.pm | |
parent | 0265a0785a266f88ae17217872badb9a53c2bea6 (diff) | |
download | App-BorgRestore-82bdef1a323fc46ad8499ccd17d3c255200696d4.tar.gz App-BorgRestore-82bdef1a323fc46ad8499ccd17d3c255200696d4.tar.xz |
Move packages to dedicated files
Signed-off-by: Florian Pritz <bluewind@xinu.at>
Diffstat (limited to 'lib/App/BorgRestore/Helper.pm')
-rw-r--r-- | lib/App/BorgRestore/Helper.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/lib/App/BorgRestore/Helper.pm b/lib/App/BorgRestore/Helper.pm new file mode 100644 index 0000000..b4d52e5 --- /dev/null +++ b/lib/App/BorgRestore/Helper.pm @@ -0,0 +1,22 @@ +package App::BorgRestore::Helper; +use v5.10; +use strict; +use warnings; + + +sub untaint { + my $data = shift; + my $regex = shift; + + $data =~ m/^($regex)$/ or die "Failed to untaint: $data"; + return $1; +} + +sub untaint_archive_name { + my $archive = shift; + return untaint($archive, qr([a-zA-Z0-9-:+]+)); +} + +1; + +__END__ |