From 75376ff74b19545bf7ee5b66a298ffd4285c5383 Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Thu, 5 Feb 2015 21:23:49 -0800
Subject: unbreak this code

---
 test.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)
 mode change 100644 => 100755 test.pl

(limited to 'test.pl')

diff --git a/test.pl b/test.pl
old mode 100644
new mode 100755
index 4c76fd8..34e38b4
--- a/test.pl
+++ b/test.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl -w -d
 
 #
 # Make sure to copy Business::OnlinePayment::vSecureProcessing into its
@@ -9,7 +9,7 @@ use strict;
 use Business::OnlinePayment;
 
 my %opt = (
-    url =>'dvrotsos2.kattare.com',
+    server =>'dvrotsos2.kattare.com',
     platform => 'Buypass',
     gid => '1432479912596791',
     tid => '01',
@@ -38,7 +38,10 @@ main();
 
 sub main {
     my $transaction = Business::OnlinePayment->new("vSecureProcessing", %opt);
+    #$transaction->server('localhost');
+    #$transaction->path('/cgi-bin/test.cgi');
     $transaction->content(%content);
+    $DB::single = 1;
     eval { $transaction->submit(); };
 
     if ( $@ ) {
-- 
cgit v1.2.1