search=".. ../.."
for dir in $search; do
    if test -d "`pwd`/$dir/modperl-2.0"; then
	root="`pwd`/$dir"
	echo "root=$root"
    fi
done

#e.g. symlink to $HOME/perl/perl-current
#XXX: perl has its own (more robust) TAGS generator: emacs/ptags
perl_src=$root/perl/
#XXX: apache has its own: build/MakeEtags
apache_src=$root/httpd-2.0/
modperl_src=$root/modperl-2.0/src/
xs_src=$root/modperl-2.0/xs

cd $root/modperl-2.0
rm -f src/modules/perl/etag_files

for dir in $apache_src $modperl_src $perl_src $xs_src; do
    echo $dir
    find $dir -follow -name '*.[ch]' >> src/modules/perl/etag_files
done

(cd src/modules/perl && etags `cat etag_files`)

rm -f src/modules/perl/etag_files