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 5b0ac623c72b1a6f34b2beeccf073b97f4179db6..aa4a03aed94b034333bf88b401e01bf1b2491a1e 100644 (file)
--- a/lib/Perl/Critic/Policy/Dynamic/NoIndirect.pm
+++ b/lib/Perl/Critic/Policy/Dynamic/NoIndirect.pm
@@ -11,11 +11,11 @@ Perl::Critic::Policy::Dynamic::NoIndirect - Perl::Critic policy against indirect
 
 =head1 VERSION
 
-Version 0.01
+Version 0.02
 
 =cut
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 =head1 DESCRIPTION
 
@@ -71,6 +71,8 @@ sub violates_dynamic {
   }
  }
 
+ @errs = sort { $a->[3] <=> $b->[3] } @errs;
+
  my @violations;
 
  if (@errs) {