Se arregla el log_trace para que ande de nuevo

diff --git a/log_trace.pl b/log_trace.pl
index 929824ab49b6fd0def386cb4e157b5c38481e2cb..a755f3c4f1ff9c20232086ffd06b5770fa8d6001 100755 (executable)
--- a/log_trace.pl
+++ b/log_trace.pl
@@ -11,7 +11,7 @@ my %hash, %users, $texto. $max;
 if (shift eq "-d") {
        $texto = `svn log > ChangeLog`;
 }
 if (shift eq "-d") {
        $texto = `svn log > ChangeLog`;
 }

-$texto = `egrep r[0-9]+ ChangeLog`;
+$texto = `egrep "rev [0-9]+" ChangeLog`;

 
 @lines = split(/\n/, $texto);
 
 
 @lines = split(/\n/, $texto);
 


@@ -58,7 +58,7 @@ foreach $date (sort keys %hash) {
 
 print "\n";
 print "Cantidad de commits por usuario:\n";
 
 print "\n";
 print "Cantidad de commits por usuario:\n";

-print `egrep r[0-9]+ ChangeLog | awk '{print \$3}' | sort | uniq -c | sort -r`;
+print `egrep "rev [0-9]+" ChangeLog | awk '{print \$3}' | sort | uniq -c | sort -r`;

 print "\n";
 print "( ) = Máximo/s Commiteador/es del Día | ";
 print "* == 2 Commit\n";
 print "\n";
 print "( ) = Máximo/s Commiteador/es del Día | ";
 print "* == 2 Commit\n";