perl – 不允许在git中删除Master分支

直接使用预接收挂钩.假设您正在使用裸中央存储库,请将以下代码放在您的repo.git / hooks / pre-receive中,并且不要忘记chmod x your-repo.git / hooks / pre-receive.

#! /usr/bin/perl

# create: 00000... 51b8d... refs/heads/topic/gBACon
# delete: 51b8d... 00000... refs/heads/topic/gBACon
# update: 51b8d... d5e14... refs/heads/topic/gBACon

my $errors = 0;

while (<>) {
  chomp;

  next
    unless m[ ^
              ([0-9a-f]+)       # old SHA-1
              \s+
              ([0-9a-f]+)       # new SHA-1
              \s+
              refs/heads/(\S+)  # ref
              \s*
              $
            ]x;

  my($old,$new,$ref) = ($1,$2,$3);

  next unless $ref =~ /^(master|alpha|beta)$/;

  die "$0: deleting $ref not permitted!\n"
    if $new =~ /^0+$/;
}

exit $errors == 0 ? 0 : 1;