algunas comillas para evitar posibles problemas con caracteres escapeables

[z.facultad/75.08/llamadas.git] / inst / callgen

diff --git a/inst/callgen b/inst/callgen
index d6aac8b2f626d65b68ddade47c8d8ee28b5bc692..dde9fb7b59234f63f0f98ffe55410425fbf95bc9 100755 (executable)
--- a/inst/callgen
+++ b/inst/callgen
@@ -22,8 +22,8 @@
 $CANT_ARCHS = 10;
 $MIN_LINEAS = 1000;
 $MAX_LINEAS = 5000;
 $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";
 
 $MIN_COD    = "0000";
 $MAX_COD    = "9999";
 


@@ -37,11 +37,7 @@ our @codes; # C
 # Uso: load_codes()
 sub load_codes()
 {
 # Uso: load_codes()
 sub load_codes()
 {

-       while (<>)
-       {
-               ;
-               push(@codes, substr($_, 0, 2));
-       }
+       push(@codes, substr($_, 0, 2)) while (<STDIN>);

 }
 #}}}
 
 }
 #}}}