support globbing to match things like git-*

[filters.git] / fanboy

diff --git a/fanboy b/fanboy
index bff7173fb55a4722f1dc1e6bf75239207e401cae..32fe7e396f7f06b3279b5a4ff547c876cbbf1725 100755 (executable)
--- a/fanboy
+++ b/fanboy
@@ -1,11 +1,17 @@
 #!/usr/bin/perl
 
 if (! @ARGV) {
-       @ARGV=qw(linus git linux rebase redbased merge merged cherry-pick
-               branch branched branches);
+       @ARGV=qw(linus git linux rebase rebased merge merged cherry-pick
+               branch branched branches git-*);
 }
 
-my $coolstuff=join("|", map { "\Q$_\E" } reverse sort @ARGV);
+my $coolstuff=join("|", 
+       map {
+               $_=quotemeta($_);
+               s/\\\*/.*/g;
+               s/\\\?/./g;
+               $_;
+       } reverse sort @ARGV);
 
 my $len=0;
 my $indent="";