X-Git-Url: https://git.llucax.com/z.facultad/75.08/llamadas.git/blobdiff_plain/73310f2ff88cbedca117a21a4e5810adc9e6a622..923b97c7e4c6106cd3c10193fce6596fee074fd7:/inst/callgen?ds=inline

diff --git a/inst/callgen b/inst/callgen
index d6aac8b..dde9fb7 100755
--- a/inst/callgen
+++ b/inst/callgen
@@ -22,8 +22,8 @@
 $CANT_ARCHS = 10;
 $MIN_LINEAS = 1000;
 $MAX_LINEAS = 5000;
-$MIN_ANIO   = 1999;
-$MAX_ANIO   = 1999;
+$MIN_ANIO   = "1999";
+$MAX_ANIO   = "2004";
 $MIN_COD    = "0000";
 $MAX_COD    = "9999";
 
@@ -37,11 +37,7 @@ our @codes; # C
 # Uso: load_codes()
 sub load_codes()
 {
-	while (<>)
-	{
-		;
-		push(@codes, substr($_, 0, 2));
-	}
+	push(@codes, substr($_, 0, 2)) while (<STDIN>);
 }
 #}}}