[glibmm] Fixed the regular expressions in the doc generation as Daniel suggested

[Johannes Schmid <jhs src gnome org>]

commit 10bef447b3402353647b08497b14b5f414986dad
Author: Johannes Schmid <jhs gnome org>
Date:   Sat Apr 25 10:13:43 2009 +0200

    Fixed the regular expressions in the doc generation as Daniel suggested
    
    Use ^prefix instead of just prefix.
---
 tools/pm/DocsParser.pm |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/tools/pm/DocsParser.pm b/tools/pm/DocsParser.pm
index 1507e8e..7526980 100644
--- a/tools/pm/DocsParser.pm
+++ b/tools/pm/DocsParser.pm
@@ -440,7 +440,7 @@ sub substitute_function($$)
     }
     else
     {
-      print "Translated $name into ";    
+      print "Documentation: Translated $name into ";  
       non_object_method_name($doc_func, \$name);
       print "$name\n";
     }
@@ -457,7 +457,7 @@ sub substitute_function($$)
 sub non_object_method_name($$)
 {
   my ($doc_func, $name) = @_;
-  if ($$name =~ "gtk_")
+  if ($$name =~ "^gtk_")
   {
     my %gtk_objects = ("gtk_accel_map" => "AccelMap",
                        "gtk_clipboard" => "Clipboard",
@@ -475,7 +475,7 @@ sub non_object_method_name($$)
                        "gtk_recent_filter" => "RecentFilter");
     foreach my $key (keys(%gtk_objects))
     {
-      if ($$name =~ $key)
+      if ($$name =~ "^$key")
       {
         DocsParser::build_method_name($doc_func, "Gtk", $gtk_objects{$key}, $name);
         return;