3 # glue all the (e)TAGS files named on the command line
4 # into one big TAGS file here; main task: unrelativize the
7 open (TAGS, "> TAGS") || die "can't open TAGS file for writing\n";
10 open(INF, "< $f") || die "can't open $f for reading\n";
17 # otherwise, next line is filename; de-relativise it
19 die "unexpected file line:$_" if /^\f/ || /\x7f/; # sanity check
20 if (/^\//) { # absolute already; do nothing...