From a8d03417debaf23918cd8be8185628efa62032fd Mon Sep 17 00:00:00 2001 From: Dietmar Maurer Date: Thu, 24 May 2018 11:06:15 +0200 Subject: [PATCH] add split_args helper --- PVE/Tools.pm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/PVE/Tools.pm b/PVE/Tools.pm index dddf1c0..2d0b727 100644 --- a/PVE/Tools.pm +++ b/PVE/Tools.pm @@ -6,6 +6,7 @@ use POSIX qw(EINTR EEXIST EOPNOTSUPP); use base 'Exporter'; use IO::File; +use Text::ParseWords; our @EXPORT_OK = qw( $IPV6RE @@ -126,4 +127,11 @@ sub split_list { return @data; } +# split an shell argument string into an array, +sub split_args { + my ($str) = @_; + + return $str ? [ Text::ParseWords::shellwords($str) ] : []; +} + 1; -- 2.39.2