私が行ったことは、git-cvsimport perlスクリプトを変更したことで、update_index()
メソッドを次のように変更しました。
sub update_index(\ @ \ @){
私の$old=シフト;
私の$new=シフト;
open(my $ fh、'|-'、qw(git update-index -z --index-info))
または「gitupdate-indexを開くことができません:$!」;
$fhを印刷する
(マップ{"0 0000000000000000000000000000000000000000 \ t $ _ \0"}
@ $ old)、
(map {'100'。sprintf('%o'、$ _-> [0])。 "$ _-> [1] \ t $ _-> [2] \ 0"}
@ $ new)
または「gitupdate-indexに書き込めません:$!」;
$fhを閉じる
または「gitupdate-indexに書き込めません:$!」;
$?そして死ぬ"gitupdate-index報告されたエラー:$?";
}
に:
sub update_index(\ @ \ @){
私の$old=シフト;
私の$new=シフト;
open(my $ fh、'|-'、qw(git update-index -z --index-info))
または「gitupdate-indexを開くことができません:$!」;
$fhを印刷する
(マップ{"0 0000000000000000000000000000000000000000 \ t $ cvs_tree / $ _ \0"}
@ $ old)、
(map {'100'。sprintf('%o'、$ _-> [0])。 "$ _-> [1] \ t $ cvs_tree / $ _-> [2] \ 0"}
@ $ new)
または「gitupdate-indexに書き込めません:$!」;
$fhを閉じる
または「gitupdate-indexに書き込めません:$!」;
$?そして死ぬ"gitupdate-index報告されたエラー:$?";
}
$cvs_tree
(変数の追加に注意してください。)
チャームのように機能します。実行するには:
perl git-cvsimport -v ...(残りの通常のgit-cvsimport引数)