From 4c5c9c9f7e5d70fd47f1486dcd67f22765109aa2 Mon Sep 17 00:00:00 2001
From: Leandro Lucarella <llucax@gmail.com>
Date: Sun, 24 Oct 2004 20:35:13 +0000
Subject: [PATCH] Bugfix.

---
 inst/callgen | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

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>);
 }
 #}}}
 
-- 
2.43.0