-quiet "$Business::OnlinePayment::VirtualNet::DEBUG used only once"

[Business-OnlinePayment-VirtualNet.git] / t / credit_card.t

diff --git a/t/credit_card.t b/t/credit_card.t
index e766aab..ae7a1d0 100644 (file)
--- a/t/credit_card.t
+++ b/t/credit_card.t
@@ -4,6 +4,7 @@ use Business::OnlinePayment;
 
 $DEBUG = 0;
 $Business::OnlinePayment::VirtualNet::DEBUG = $DEBUG;
+$Business::OnlinePayment::VirtualNet::DEBUG += 0; #quiet warnings with old perl
 
 #     Use this merchant information for testing only. 
 #