[devel] Как я искал coreutils

Денис Смирнов mithraen на altlinux.ru
Сб Мар 20 14:37:12 UTC 2010


On Sat, Mar 20, 2010 at 04:05:47PM +0300, Sergey Vlasov wrote:

SV> В определённом смысле сейчас так и есть - /gears/?/*.git является
SV> репозиторием, для записи в который необходимо иметь разрешение на
SV> сборку пакета.  Проблема в том, что в /gears/... не сохраняются ветки,
SV> используемые мантейнером при работе над пакетом - виден только
SV> окончательный результат (хотя формально вся информация, которая может
SV> попасть в собранный пакет, там есть).

И она даже восстановима. Вот скрипт, написаный по мотивам недавнего моего
диалога на эту тему с ldv@  в devel@

#!/usr/bin/perl -w                                                                                                                     
use strict;                                                                                                                            
                                                                                                                                       
open( IN, "git log --merges --format=\"%P %s\" |" ) || die;                                                                            
                                                                                                                                       
my %branches;                                                                                                                          
                                                                                                                                       
while (<IN>) {                                                                                                                         
    /^([0-9a-f]+)\s([0-9a-f]+)\sMerge branch '(.+?)'/ || next;                                                                         
    $branches{$3} = $2 unless defined $branches{$3};                                                                                   
}                                                                                                                                      
                                                                                                                                       
close(IN);                                                                                                                             
                                                                                                                                       
print $_. " " . $branches{$_} . "\n" foreach sort keys %branches; 

-- 
С уважением, Денис

http://mithraen.ru/
----------------------------------------------------------------------------

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 198 bytes
Desc: Digital signature
URL: <http://lists.altlinux.org/pipermail/devel/attachments/20100320/2f82b078/attachment.bin>


Подробная информация о списке рассылки Devel