Interchange 5.1, $string is unused in AuthorizeNet.pm:
--- AuthorizeNet.pm.orig Thu Sep 11 13:12:56 2003
+++ AuthorizeNet.pm Fri Apr 2 16:46:54 2004
@@ -428,7 +428,6 @@
}
push @query, "$key=$val";
}
- my $string = join '&', @query;
#::logDebug("Authorizenet query: " . ::uneval(\%query));
$opt->{extra_headers} = { Referer => $referer };