@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '0.01';
+$VERSION = '0.02';
$DEBUG = 0;
croak "$type not (yet) supported";
}
- $content{'expiration'} =~ s/(\d+)\/(\d+)$/;
+ $content{'expiration'} =~ /^(\d+)\/(\d+)$/;
my($m, $y) = ($1, $2);
- $m = '0$m' if $m<10;
+ $m = $m+0;
+ $m = "0$m" if $m<10;
my $exp = "$m$y";
$self->revmap_fields(