diff options
| -rwxr-xr-x | regress/simulation/.gen_todo.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/regress/simulation/.gen_todo.pl b/regress/simulation/.gen_todo.pl index 30d31ba6..2dc7a1d1 100755 --- a/regress/simulation/.gen_todo.pl +++ b/regress/simulation/.gen_todo.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# $FML$ +# $FML: .gen_todo.pl,v 1.1 2003/01/11 16:10:03 fukachan Exp $ # use strict; @@ -9,6 +9,7 @@ use Carp; my $function; my $todo = {}; my $KEY = "__FILE_GLOBAL__"; +my $all = 0; while (<>) { if (/^sub (\S+)/o) { @@ -19,6 +20,8 @@ while (<>) { $function = $KEY; } + next if /XXX-TODO.*curproc->util->/ && (! $all); + if (/(XXX-TODO:|XXX-TODO)\s*(.*)\s*$/o) { my ($xtodo) = $2; $todo->{ $ARGV }->{ $function } .= "\t". $xtodo . "\n"; |