user-tools/gitconfigexec

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 gitconfigexec - Change git settings for a given command run only
   8
   9 =head1 SYNOPSIS
  10
  11 gitconfigexec I<KEY>=I<VALUE> [I<KEY>=I<VALUE> [...]] [--] I<COMMAND> I<ARGS>
  12
  13 =head1 DESCRIPTION
  14
  15 I<KEY> is a valid git config option (see git-config(1)).
  16 Set B<GIT_CONFIG_COUNT>, B<GIT_CONFIG_KEY_I<n>>, and B<GIT_CONFIG_VALUE_I<n>>
  17 environment variables, so git(1) takes them as session-override settings.
  18
  19 =cut
  20
  21
  22 while(@ARGV)
  23 {
  24         my $arg = shift @ARGV;
  25         if($arg eq '--')
  26         {
  27                 last;
  28         }
  29         if(my ($cfg_name, $cfg_value) = $arg =~ /^([^=]+)=(.*)$/)
  30         {
  31                 my $idx = int $ENV{'GIT_CONFIG_COUNT'};
  32                 $ENV{"GIT_CONFIG_KEY_$idx"} = $cfg_name;
  33                 $ENV{"GIT_CONFIG_VALUE_$idx"} = $cfg_value;
  34                 $ENV{'GIT_CONFIG_COUNT'}++;
  35         }
  36         else
  37         {
  38                 unshift @ARGV, $arg;
  39                 last;
  40         }
  41 }
  42
  43 # remaining arguments are the command and its arguments
  44 exec {$ARGV[0]} @ARGV;
  45 ($errno, $errstr) = (int $!, $!);
  46 warn "$0: ${ARGV[0]}: $errstr\n";
  47 exit 125+$errno;