populate_wtsi_irods_groups - remove postifx if for perlcritic

dkj · Dec 6, 2023 · 617cba1 · 617cba1
1 parent 7c357b1
commit 617cba1
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/bin/populate_wtsi_irods_groups.pl b/bin/populate_wtsi_irods_groups.pl
@@ -177,7 +177,9 @@ sub _uid_to_irods_uid {
     $altered_count++;
   }
 
-  $altered_human_count += $iga->ensure_group_exists("ss_$study_id".'_human') if $study->contaminated_human_dna;
+  if ($study->contaminated_human_dna) {
+    $altered_human_count += $iga->ensure_group_exists("ss_$study_id".'_human');
+  }
 
   $group_count++;
 }