Bugfix

diff --git a/inst/antifraude.pl b/inst/antifraude.pl
index 8417306d8c3dd0b2b622347c8b06a2e2084f983d..cc654215eeb00132f605444f328c0c6a84210d70 100644 (file)
--- a/inst/antifraude.pl
+++ b/inst/antifraude.pl
@@ -72,8 +72,10 @@ sub badCall {
 }
 
 sub checkUmbrales {
 }
 
 sub checkUmbrales {

-       local(*callfields) = @_[0];
-       my $callsfile = @_[1];
+       local(*callfields) = $_[0];
+       my $callsfile = $_[1];
+       print("Callfields: @callfields\n");
+       print("Callfile: $callsfile\n");

        my $matchedUmbral = 0;
        my $i = 0;
 
        my $matchedUmbral = 0;
        my $i = 0;