algunas comillas para evitar posibles problemas con caracteres escapeables

[z.facultad/75.08/llamadas.git] / inst / antifraude.pl

diff --git a/inst/antifraude.pl b/inst/antifraude.pl
index 8f02a6d8fb8581288beafa2fc3e13b15ca63aba3..f41ee21efcdc4727fe363b6d77fd885cce0fb82a 100644 (file)
--- a/inst/antifraude.pl
+++ b/inst/antifraude.pl
@@ -87,7 +87,7 @@ sub logEntry {
        close(LOGFILE);
 
        # Chequeo el logsize y su lo supero me quedo con 100 lineas
        close(LOGFILE);
 
        # Chequeo el logsize y su lo supero me quedo con 100 lineas

-       if ($filesize > ($CONFDATA{logsize} * 1024 * 1024))
+       if ($filesize > $CONFDATA{logsize})

        {
                open(LOGFILE,"+<$log");
                do ($line = <LOGFILE>) until $. == 100;
        {
                open(LOGFILE,"+<$log");
                do ($line = <LOGFILE>) until $. == 100;