pre-commit

gistfile1.txt

#!/usr/bin/env perl

use utf8;
use strict;
use warnings;
use Encode qw/encode_utf8 decode_utf8/;

my $against = "HEAD";
if ( system("git rev-parse --verify HEAD >/dev/null 2>&1") != 0 ) {
	# Initial commit: diff against an empty tree object
	$against = "4b825dc642cb6eb9a060e54bf8d69288fbee4904"
}

my $diff = decode_utf8(`git diff --cached $against | grep ^\\+`);
if ($diff =~ /\N{U+FFFD}/) {
	print encode_utf8("不正な文字が混ざっています！\n");
	exit 1;
}

exit 0;