Merge pull request #3 from 0xAF1F/perl-deprecation

main.ratt.pl: Don't use deprecated expression for checking whether an array is empty
ThomasDOtto · Jun 12, 2017 · ea4e930 · ea4e930
2 parents e4faaa9 + ad36460
commit ea4e930
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/main.ratt.pl b/main.ratt.pl
@@ -241,7 +241,7 @@
 	  ($ref_results,$ref_Counting)=adaptAnnotationEMBL($emblDir,$_,$ref_shift2,$ref_results,$ref_Counting);
 
 	  ### cleaning step
-	  if (defined(@{$$ref_shift{$refName}})) {
+	  if (@{$$ref_shift{$refName}}) {
 		foreach (0..(scalar(@{$$ref_shift{$refName}}))-1) {
 		  undef(@{ $$ref_shift{$refName}[$_]});
 		}