From: ivan <ivan>
Date: Wed, 12 Sep 2007 03:39:15 +0000 (+0000)
Subject: fix "Useless use of a variable in void context at /usr/local/share/perl/5.8.8/FS... 
X-Git-Tag: TRIXBOX_2_6~389
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=0f96c028d39c22135e541fe8307441b100ce9a84

fix "Useless use of a variable in void context at /usr/local/share/perl/5.8.8/FS/svc_domain.pm line 367." that might have possible set an incorrest svc_domain.suffix
---

diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm
index 7ae996178..37128a09f 100644
--- a/FS/FS/svc_domain.pm
+++ b/FS/FS/svc_domain.pm
@@ -364,7 +364,7 @@ sub check {
     # need to match a list of suffixes - no guarantee they're top-level..
     # http://wiki.mozilla.org/TLD_List
     # but this will have to do for now...
-    $recref->{suffix} || $2;
+    $recref->{suffix} ||= $2;
   } else {
     return "Illegal domain ". $recref->{domain}.
            " (or unknown registry - try \$whois_hack)";