various perl critic fixes

[pve-common.git] / src / PVE / SectionConfig.pm

diff --git a/src/PVE/SectionConfig.pm b/src/PVE/SectionConfig.pm
index e3546559d29f581f79f493533c4e7bc4805d036a..f36cede9f75ba27e9591571b0e09fd924e84328d 100644 (file)
--- a/src/PVE/SectionConfig.pm
+++ b/src/PVE/SectionConfig.pm
@@ -115,7 +115,7 @@ sub updateSchema {
 
     my $props = {};
 
-    my $filter_type = $class->type() if $single_class;
+    my $filter_type = $single_class ? $class->type() : undef;
 
     foreach my $p (keys %$propertyList) {
        next if $p eq 'type';