bugfix for manual re-charging changes (Bug#423)

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 08d4585..1bb2bfb 100644 (file)
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1398,7 +1398,7 @@ sub retry_realtime {
                  && $_->status eq 'done'
                  && $_->statustext
              }
-          $_->cust_bill_event;
+          $cust_bill->cust_bill_event;
     next unless @cust_bill_event;
     my $error = $cust_bill_event[0]->retry;
     if ( $error ) {