diff --git a/perl5/PVE/Storage/LunCmd/FreeNAS.pm b/perl5/PVE/Storage/LunCmd/FreeNAS.pm
index 6548afa..80efc16 100644
--- a/perl5/PVE/Storage/LunCmd/FreeNAS.pm
+++ b/perl5/PVE/Storage/LunCmd/FreeNAS.pm
@@ -464,7 +464,7 @@ sub freenas_api_call {
     syslog("info", (caller(0))[3] . " : called for host '" . $apihost . "'");
 
     $method = uc($method);
-    if (! $method =~ /^(?>GET|DELETE|POST)$/) {
+    if ($method !~ /^(?:GET|DELETE|POST)$/) {
         syslog("info", (caller(0))[3] . " : Invalid HTTP RESTful service method '$method'");
         die "Invalid HTTP RESTful service method '$method' used.";
     }