From 4b0ec9150859adffa00fc9b5f1e075d91081a98e Mon Sep 17 00:00:00 2001
From: Hans <hans00@users.noreply.github.com>
Date: Thu, 24 Feb 2022 01:07:32 +0800
Subject: [PATCH] Don't replace scfg data

Fix TheGrandWazoo/freenas-proxmox#107
---
 perl5/PVE/Storage/LunCmd/FreeNAS.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl5/PVE/Storage/LunCmd/FreeNAS.pm b/perl5/PVE/Storage/LunCmd/FreeNAS.pm
index e1309cb..65a1fca 100644
--- a/perl5/PVE/Storage/LunCmd/FreeNAS.pm
+++ b/perl5/PVE/Storage/LunCmd/FreeNAS.pm
@@ -512,10 +512,11 @@ sub freenas_iscsi_create_extent {
 
     my $name = $lun_path;
     $name  =~ s/^.*\///; # all from last /
+    my $pool = $scfg->{'pool'};
     if ($product_name eq "TrueNAS-SCALE") {
-        $scfg->{'pool'} =~ s/\//-/;
+        $pool =~ s/\//-/;
     }
-    $name  = $scfg->{'pool'} . ($product_name eq "TrueNAS-SCALE" ? '-' : '/') . $name;
+    $name  = $pool . ($product_name eq "TrueNAS-SCALE" ? '-' : '/') . $name;
 
     my $device = $lun_path;
     $device =~ s/^\/dev\///; # strip /dev/