projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master', remote branch 'origin'
[kivitendo-erp.git]
/
scripts
/
create_tags_file.pl
diff --git
a/scripts/create_tags_file.pl
b/scripts/create_tags_file.pl
index
e27a96b
..
d7cef8e
100644
(file)
--- a/
scripts/create_tags_file.pl
+++ b/
scripts/create_tags_file.pl
@@
-20,11
+20,21
@@
use strict;
use warnings FATAL =>'all';
use diagnostics;
use warnings FATAL =>'all';
use diagnostics;
-
my $dir = IO::Dir->new("SL/")
;
+
use Getopt::Long
;
-my @files = grep {/\.pm$/} $dir->read();
+my $parse_SL = 1;
+my $parse_binmozilla = 0;
+GetOptions("sl!" => \$parse_SL,
+ "pm!" => \$parse_SL,
+ "binmozilla!" => \$parse_binmozilla,
+ "pl!" => \$parse_binmozilla,
+ );
-@files = grep { s{^}{SL\/}gxms } @files;
+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;
+
+#map { s{^}{SL\/}gxms } @files;
#print Dumper(@files);
#print Dumper(@files);