diff options
author | unknown <serg@janus.mylan> | 2007-10-13 20:26:32 +0200 |
---|---|---|
committer | unknown <serg@janus.mylan> | 2007-10-13 20:26:32 +0200 |
commit | 80f8c917dd0904c8cccf0c392e7ba17023dbdbcd (patch) | |
tree | ff5a6b71b31716f18620f302365062a600ab53f2 /dbug | |
parent | f1d92c4397bd848b5c761cfcbf3a1d195934c03d (diff) | |
download | mariadb-git-80f8c917dd0904c8cccf0c392e7ba17023dbdbcd.tar.gz |
dbug_add_tags.pl:
bugfixes
dbug/dbug_add_tags.pl:
bugfixes
Diffstat (limited to 'dbug')
-rwxr-xr-x | dbug/dbug_add_tags.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dbug/dbug_add_tags.pl b/dbug/dbug_add_tags.pl index 141a2ed85f1..3e51a54c707 100755 --- a/dbug/dbug_add_tags.pl +++ b/dbug/dbug_add_tags.pl @@ -7,7 +7,7 @@ $ctags="exctags -x -f - --c-types=f -u"; sub get_tag { local $.; local $_=<TAGS>; ($symbol, $line)= /^(.*\S)\s+function\s+(\d+)/; - $symbol=$1 if /\s(\S+)\s*\(/; + $symbol=$1 if /[\s*]([^\s*]+)\s*\(/; $line=1e50 unless $line; } @@ -51,7 +51,7 @@ while($src=shift) $skip=!$semicolon; $semicolon= /;\s*$/; print && next if $skip || - (/^\s+\w+((::\w+)?|<\w+>)\s+\**\w+/ && !/^\s*return/); + (/^\s+\w+((::\w+)?|<\w+>)\s+\**\w+/ && !/^\s*return\b/); last if /DBUG_ENTER/; print "$tab DBUG_ENTER(\"$symbol\");\n"; print "\n" unless $_ eq "\n"; |