fix bad bug causing inappropriate renewals
authorjeff <jeff>
Mon, 5 Jul 2010 08:59:52 +0000 (08:59 +0000)
committerjeff <jeff>
Mon, 5 Jul 2010 08:59:52 +0000 (08:59 +0000)
FS/FS/part_export/domreg_opensrs.pm

index c39a0da..6bb768d 100644 (file)
@@ -533,7 +533,9 @@ sub renew_through {
       if $years > 10; #no infinite loop
   }
 
-  warn "$me: renewing ". $svc_domain->domain. "for $years years\n" if $DEBUG;
+  return '' unless $years;
+
+  warn "$me: renewing ". $svc_domain->domain. " for $years years\n" if $DEBUG;
   my $srs = $self->get_srs;
   $rv = $srs->make_request(
     {