add split_args helper
authorDietmar Maurer <dietmar@proxmox.com>
Thu, 24 May 2018 09:06:15 +0000 (11:06 +0200)
committerDietmar Maurer <dietmar@proxmox.com>
Thu, 24 May 2018 09:06:15 +0000 (11:06 +0200)
PVE/Tools.pm

index dddf1c0..2d0b727 100644 (file)
@@ -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;