fix refunds on 2.1 (fallout from webpay bs on RT#4103), RT#8700

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index c210712..99b97af 100644 (file)
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -5200,7 +5200,7 @@ sub realtime_refund_bop {
   my $self = shift;
 
   my %options = ();
-  if (ref($_[0]) ne 'HASH') {
+  if (ref($_[0]) eq 'HASH') {
     %options = %{$_[0]};
   } else {
     my $method = shift;