ã¨ã¯ã¹ããã¼ã©ä¸ã§ã¯ãã¡ã¤ã«åã®å ¨è§åè§ãå¤å¥ãã¥ããã®ã§ãæãã¬å ¨è§æ··ããã®ãã¡ã¤ã«åããªãã¸ããªã«å ¥ã£ã¦ãã¾ããã¨ãããã ããã pre-commit ã§æ¤ç¥ãã¦é²ãã 以ä¸ã®ã¹ã¯ãªããã hooks 以ä¸ã«ç½®ãã¦ãã㨠#!/usr/bin/perl # -*- coding:utf-8 -*- $ENV{LANG} = 'ja_JP.UTF-8'; use strict; my $SVNLOOK='/usr/bin/svnlook'; sub main { my ( $repos, $txn ) = @_; my @cmd = ( $SVNLOOK, 'diff', "-t$txn", $repos ); open my $pipe, '-|', @cmd or die $!; local $/ = undef; my $diff = <$pipe>; close $pipe;
{{#tags}}- {{label}}
{{/tags}}