[freeside-commits] freeside/FS/FS svc_domain.pm,1.50,1.51

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv6264

Modified Files:
	svc_domain.pm 
Log Message:
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

Index: svc_domain.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_domain.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -d -r1.50 -r1.51
--- svc_domain.pm	9 Aug 2007 00:31:36 -0000	1.50
+++ svc_domain.pm	12 Sep 2007 03:39:15 -0000	1.51
@@ -364,7 +364,7 @@
     # 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)";