Make sure the errors are sorted before mapping them to PPI elements

[perl/modules/Perl-Critic-Policy-Dynamic-NoIndirect.git] / lib / Perl / Critic / Policy / Dynamic / NoIndirect.pm

diff --git a/lib/Perl/Critic/Policy/Dynamic/NoIndirect.pm b/lib/Perl/Critic/Policy/Dynamic/NoIndirect.pm
index 20b9e275cc02c989a6df91462e94b16d949cdd41..aa4a03aed94b034333bf88b401e01bf1b2491a1e 100644 (file)
--- a/lib/Perl/Critic/Policy/Dynamic/NoIndirect.pm
+++ b/lib/Perl/Critic/Policy/Dynamic/NoIndirect.pm
@@ -71,6 +71,8 @@ sub violates_dynamic {
   }
  }
 
+ @errs = sort { $a->[3] <=> $b->[3] } @errs;
+
  my @violations;
 
  if (@errs) {