diff options
author | serg@sergbook.mysql.com <> | 2002-11-05 16:06:11 +0100 |
---|---|---|
committer | serg@sergbook.mysql.com <> | 2002-11-05 16:06:11 +0100 |
commit | 6f963dad66454ed9fc710e91ff2735bfa23fea84 (patch) | |
tree | 245594c5b1ddf129e4f8d66e27d8b342de0823fa /dbug | |
parent | 6cd52709727cd6bab7bb654d4dd77878a2c3c506 (diff) | |
download | mariadb-git-6f963dad66454ed9fc710e91ff2735bfa23fea84.tar.gz |
added DBUG_ENTER/RETURN tags, dbug_add_tags.pl bugfix
Diffstat (limited to 'dbug')
-rwxr-xr-x | dbug/dbug_add_tags.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/dbug/dbug_add_tags.pl b/dbug/dbug_add_tags.pl index a376fdb2f59..141a2ed85f1 100755 --- a/dbug/dbug_add_tags.pl +++ b/dbug/dbug_add_tags.pl @@ -5,7 +5,7 @@ die "No files specified\n" unless $ARGV[0]; $ctags="exctags -x -f - --c-types=f -u"; sub get_tag { - local $_=<TAGS>; + local $.; local $_=<TAGS>; ($symbol, $line)= /^(.*\S)\s+function\s+(\d+)/; $symbol=$1 if /\s(\S+)\s*\(/; $line=1e50 unless $line; @@ -40,7 +40,6 @@ while($src=shift) warn "$src:".($.-1)."\t$orig" if /\breturn\b/; } print; - next if /DBUG_ENTER/; next if $. < $line; die "Something wrong: \$.=$., \$line=$line, \$symbol=$symbol\n" if $. > $line; &get_tag && next if /^\s*inline /; |