use Business::OnlinePayment;
use Net::SSLeay qw(post_https make_form);
use Text::CSV;
-use vars qw(@ISA @EXPORT @EXPORT_OK);
+use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
-#$VERSION="0.1";
+$VERSION="0.1.1";
require Exporter;
# Or, if we want, from $c{login}.
- $c{expiration} =~ /(\d\d?).*(\d\d?)/; # extremely crude way to split the month and year
+ $c{expiration} =~ /(\d\d?)\D*(\d\d?)/; # Slightly less crude way to extract the exp date.
$c{exp_month} = sprintf('%02d',$1);
$c{exp_year} = sprintf('%02d',$2);