From e48985560b4c23e511658f2d638b762c061beee1 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 3 Jul 2002 03:57:08 +0000
Subject: [PATCH] working one-time charges again

---
 FS/FS/cust_main.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 : '';
-- 
2.11.0