smart-case capable git-grep

git-grep.pl

#!/usr/bin/env perl
use strict;
use warnings;

my ($pattern, $grabnext);
for (@ARGV) {
    if ($grabnext or not /^-/) {
        $pattern = $_;
        last;
    } elsif (/^--$/) {
        $grabnext = 1;
    }
}

# Accept a --no-smart-case flag to disable our smarts
my @args = grep { not /^(-s|--case-?sensitive|--no-smart-?case)$/ } @ARGV;
my $do_smart_case = @ARGV == @args;

# Prepend -i to match case-insensitively when the pattern contains no uppercase
unshift @args, "--ignore-case"
    if $pattern eq lc $pattern and $do_smart_case;

exec "git", "grep", @args
    or die "exec failed: $!";