From 82bdef1a323fc46ad8499ccd17d3c255200696d4 Mon Sep 17 00:00:00 2001
From: Florian Pritz <bluewind@xinu.at>
Date: Mon, 27 Feb 2017 00:05:30 +0100
Subject: Move packages to dedicated files

Signed-off-by: Florian Pritz <bluewind@xinu.at>
---
 lib/App/BorgRestore/Helper.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 lib/App/BorgRestore/Helper.pm

(limited to 'lib/App/BorgRestore/Helper.pm')

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__
-- 
cgit v1.2.3-24-g4f1b