diff options
| author | ivan <ivan> | 2002-05-10 07:45:29 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-05-10 07:45:29 +0000 |
| commit | 91249e69d7126b456ba444686ab9f7485c121534 (patch) | |
| tree | cbe86b725be1de9bd64a06789c30533dd1d68696 /FS/FS/svc_domain.pm | |
| parent | 0c5d2706f6e199b309a130bd24ffdf4f3cea3834 (diff) | |
bad reuse of variable
Diffstat (limited to 'FS/FS/svc_domain.pm')
| -rw-r--r-- | FS/FS/svc_domain.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm index d01a403..97c5b31 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 |