devel/mktodo.pl: Reorder else clauses

This makes the trivial (short) case first, so it's easier to read

(cherry picked from commit 9f3102880cda991067d28d7f59759bc4005f886a)
Signed-off-by: Nicolas R <atoomic@cpan.org>

diff --git a/dist/Devel-PPPort/devel/mktodo.pl b/dist/Devel-PPPort/devel/mktodo.pl
index db6e719..e3cd3a3 100644 (file)
--- a/dist/Devel-PPPort/devel/mktodo.pl
+++ b/dist/Devel-PPPort/devel/mktodo.pl
@@ -410,15 +410,16 @@ sub get_apicheck_symbol_map
 
   while (<$fh>) {
     next if /^#/;
-    if (defined $cur) {
+
+    if (! defined $cur) {
+      /_DPPP_test_(\w+)/ and $cur = $1;
+    }
+    else {
       for my $sym (/\b([A-Za-z_]\w+)\b/g) {
         $symmap{$sym}{$cur}++;
       }
       undef $cur if /^}$/;
     }
-    else {
-      /_DPPP_test_(\w+)/ and $cur = $1;
-    }
   }
 
   return \%symmap;