RT# 82955 - will only try to delete if refund found

1 files changed, 2 insertions, 2 deletions

diff --git a/bin/cust_pay_batch_refund_delete b/bin/cust_pay_batch_refund_delete
index 4e1f1e0c6..df893f555 100755
--- a/bin/cust_pay_batch_refund_delete
+++ b/bin/cust_pay_batch_refund_delete
@@ -29,10 +29,10 @@ foreach (@batch_refunds) {
        'extra_sql' => $extra_batch_refund_sql,
 	});
 
-	warn "found cust refund number ".$cust_refund->{Hash}->{refundnum}.", now to delete it.\n";
+	warn "found cust refund number ".$cust_refund->{Hash}->{refundnum}.", now to delete it.\n" if $cust_refund;
 
 	## delete the cust_pay_refund
-	my $delete_cust_refund_error = $cust_refund->delete;
+	my $delete_cust_refund_error = $cust_refund->delete if cust_refund;
 	warn "could not delete cust refund $delete_cust_refund_error\n" if $delete_cust_refund_error;
 
      ## delete the refund from the batch.