From 7924db7d84111c753527a9fe76649d330ba1fd48 Mon Sep 17 00:00:00 2001 From: Alan Kennedy Date: Sun, 24 Oct 2004 00:51:09 +0000 Subject: [PATCH] Bugfix --- inst/antifraude.pl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/inst/antifraude.pl b/inst/antifraude.pl index 8417306..cc65421 100644 --- a/inst/antifraude.pl +++ b/inst/antifraude.pl @@ -72,8 +72,10 @@ sub badCall { } 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; -- 2.43.0