+#!/usr/bin/perl
+#
########################################################
#
# This script creates a 'tags' file in the style of ctags
use warnings FATAL =>'all';
use diagnostics;
-my $dir = IO::Dir->new("SL/");
+use Getopt::Long;
+
+my $parse_SL = 1;
+my $parse_binmozilla = 0;
+GetOptions("sl!" => \$parse_SL,
+ "pm!" => \$parse_SL,
+ "binmozilla!" => \$parse_binmozilla,
+ "pl!" => \$parse_binmozilla,
+ );
-my @files = grep {/\.pm$/} $dir->read();
+my @files = ();
+push @files, grep { /\.pm$/ && s{^}{SL/}gxms } IO::Dir->new("SL/")->read() if $parse_SL;
+push @files, grep { /\.pl$/ && s{^}{bin/mozilla/}gxms} IO::Dir->new("bin/mozilla/")->read() if $parse_binmozilla;
-@files = grep { s{^}{SL\/}gxms } @files;
+#map { s{^}{SL\/}gxms } @files;
#print Dumper(@files);
$naive_tagger->output( outfile => $tagsfile );
-1;
\ No newline at end of file
+1;