From 91249e69d7126b456ba444686ab9f7485c121534 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 10 May 2002 07:45:29 +0000
Subject: [PATCH] bad reuse of variable

---
 FS/FS/svc_domain.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm
index d01a403d1..97c5b3147 100644
--- a/FS/FS/svc_domain.pm
+++ b/FS/FS/svc_domain.pm
@@ -193,14 +193,14 @@ sub insert {
 
     foreach my $record ( @defaultrecords ) {
       my($zone,$af,$type,$data) = split(/\s+/,$record,4);
-      my $record = new FS::domain_record {
+      my $domain_record = new FS::domain_record {
         'svcnum'  => $self->svcnum,
         'reczone' => $zone,
         'recaf'   => $af,
         'rectype' => $type,
         'recdata' => $data,
       };
-      my $error = $record->insert;
+      my $error = $domain_record->insert;
       if ( $error ) {
         $dbh->rollback if $oldAutoCommit;
         return "couldn't insert record for new domain: $error";
@@ -407,7 +407,7 @@ sub submit_internic {
 
 =head1 VERSION
 
-$Id: svc_domain.pm,v 1.26 2002-03-18 09:10:12 ivan Exp $
+$Id: svc_domain.pm,v 1.27 2002-05-10 07:45:29 ivan Exp $
 
 =head1 BUGS
 
-- 
2.11.0