El Comando blame

El comando blame permite responder a la pregunta ¿En que revisión se introdujo esta línea?

La salida de svn blame es una versión formateada del fichero en el que cada línea es prefijada con la revisión en que la línea fué introducida y el autor de esa revisión. Un sinónimo para blame es annotate. Sigue un ejemplo de salida:

pp2@nereida:~/LBench-Test/lib/Bench$ svn annotate Test.pm | tail -25
  3063    casiano     for my $exp_name ( @{ $self->{SELECTED} } ) {
  3064    lgforte         $self->{EXPERIMENTS}{$exp_name}->connect;
  3063    casiano         $self->{EXPERIMENTS}{$exp_name}->execute_preamble;
  3063    casiano     }
  2248    casiano 
  3063    casiano     # Tomamos el array TEST como array para mantener el orden
  3063    casiano     # Por ello, no recorremos con for (keys @array)
  3063    casiano     # Usamos entonces while (@array) { $key, $value = splice ... }
  3063    casiano     #
  3063    casiano     while ( @{ $self->{TESTS} } ) {
  3063    casiano         my ( $test, $params ) = splice @{ $self->{TESTS} }, 0, 2;
  2248    casiano 
  3063    casiano         for my $exp_name ( @{ $self->{SELECTED} } ) {
  3129    lgforte            $self->{EXPERIMENTS}{$exp_name}->save_result( $params, $test );
  3063    casiano         }
  3063    casiano     }
  3063    casiano 
  3063    casiano     for my $exp_name ( @{ $self->{SELECTED} } ) {
  3063    casiano         $self->{EXPERIMENTS}{$exp_name}->execute_postamble;
  3063    casiano     }
  2248    casiano }
  2248    casiano 
  2248    casiano 1;
  2248    casiano 
  2248    casiano __END__

Casiano Rodríguez León
Licencia de Creative Commons
Principios de Programación Imperativa, Funcional y Orientada a Objetos Una Introducción en Perl/Una Introducción a Perl
por Casiano Rodríguez León is licensed under a Creative Commons Reconocimiento 3.0 Unported License.

Permissions beyond the scope of this license may be available at http://campusvirtual.ull.es/ocw/course/view.php?id=43.
2012-06-19