diff options
| -rw-r--r-- | FS/FS/cust_main.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 6edb6ae8f..02e906aed 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1742,7 +1742,7 @@ the error, otherwise returns false. =cut sub charge { - my ( $self, $amount ) = @_; + my ( $self, $amount ) = ( shift, shift ); my $pkg = @_ ? shift : 'One-time charge'; my $comment = @_ ? shift : '$'. sprintf("%.2f",$amount); my $taxclass = @_ ? shift : ''; |