53
53
print "Processing ".$dir."\n";
54
54
open(TAGSFILE,">tags") || die "Error: Cannot open $dir/tags for writing.\n";
55
55
foreach $file (<*.{gz,txt}>) {
56
57
do { open(GZ, "zcat $file|") if ($file =~ /\.gz$/) } or open(GZ,$file);
58
59
# From vim61/src/ex_cmds.c, lines 5034-5036