summaryrefslogtreecommitdiff
path: root/dbug
diff options
context:
space:
mode:
authorunknown <serg@janus.mylan>2007-10-13 20:26:32 +0200
committerunknown <serg@janus.mylan>2007-10-13 20:26:32 +0200
commit80f8c917dd0904c8cccf0c392e7ba17023dbdbcd (patch)
treeff5a6b71b31716f18620f302365062a600ab53f2 /dbug
parentf1d92c4397bd848b5c761cfcbf3a1d195934c03d (diff)
downloadmariadb-git-80f8c917dd0904c8cccf0c392e7ba17023dbdbcd.tar.gz
dbug_add_tags.pl:
bugfixes dbug/dbug_add_tags.pl: bugfixes
Diffstat (limited to 'dbug')
-rwxr-xr-xdbug/dbug_add_tags.pl4
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";