[glibmm/gmmproc-refactor] Minor changes in WrapParser.

[Krzesimir Nowak <krnowak src gnome org>]

commit 1eda5a7d89accd48d7bd68198d0349ca7314bb08
Author: Krzesimir Nowak <qdlacz gmail com>
Date:   Mon Jul 9 22:21:33 2012 +0200

    Minor changes in WrapParser.
    
    Count lines from 1, not from 0. Warn about possible unimplemented
    macros if the name is longer than one char.

 tools/pm/Common/WrapParser.pm |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)
---
diff --git a/tools/pm/Common/WrapParser.pm b/tools/pm/Common/WrapParser.pm
index 10e1d05..3822758 100644
--- a/tools/pm/Common/WrapParser.pm
+++ b/tools/pm/Common/WrapParser.pm
@@ -3104,8 +3104,8 @@ sub new ($$$$$$)
   my $self =
   {
 # TODO: check if all those fields are really needed.
-    'line_num' => 0,
-    'fixed_line_num' => 0,
+    'line_num' => 1,
+    'fixed_line_num' => 1,
     'level' => 0,
     'classes' => [],
     'class_levels' => [],
@@ -3439,7 +3439,7 @@ sub parse ($)
         $self->_set_fixed_line_num;
 
         # handler call
-        &{$handler};
+        &{$handler} ();
       }
       else
       {
@@ -3447,7 +3447,7 @@ sub parse ($)
         # no handler found - just paste the token to main section
         $section_manager->append_string_to_section ($token, $main_section);
 # TODO: remove it later.
-        if ($token =~ /^[A-Z_]+$/)
+        if ($token =~ /^[A-Z_]{2,}$/)
         {
           print STDERR $token . ": Possible not implemented token!\n";
         }