X-Git-Url: https://git.proxmox.com/?p=pve-client.git;a=blobdiff_plain;f=PVE%2FTools.pm;h=cd55932c8a9cffaa5e96b5bfff0744a89ddeea43;hp=2d0b7276037b28a83559252d86d86e81235eb185;hb=cff6d4f9a35be25b57b722d4fbcd434be8d696db;hpb=184877d47a543e4bf5b08548a380f0d6e1bcc3a8

diff --git a/PVE/Tools.pm b/PVE/Tools.pm
index 2d0b727..cd55932 100644
--- a/PVE/Tools.pm
+++ b/PVE/Tools.pm
@@ -14,6 +14,7 @@ $IPV4RE
 split_list
 file_set_contents
 file_get_contents
+extract_param
 );
 
 my $IPV4OCTET = "(?:25[0-5]|(?:2[0-4]|1[0-9]|[1-9])?[0-9])";
@@ -134,4 +135,13 @@ sub split_args {
     return $str ? [ Text::ParseWords::shellwords($str) ] : [];
 }
 
+sub extract_param {
+    my ($param, $key) = @_;
+
+    my $res = $param->{$key};
+    delete $param->{$key};
+
+    return $res;
+}
+
 1;