From: ivan <ivan>
Date: Mon, 5 Nov 2001 12:07:10 +0000 (+0000)
Subject: this is unfinished and untested anyway, but this corrects a silly typo
X-Git-Tag: freeside_1_4_0pre11~232
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=2893c82b194c167229b07bebe27a5979bff43018;p=freeside.git

this is unfinished and untested anyway, but this corrects a silly typo
---

diff --git a/bin/svc_domain.import b/bin/svc_domain.import
index 3d3be9da5..10fe5b584 100644
--- a/bin/svc_domain.import
+++ b/bin/svc_domain.import
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: svc_domain.import,v 1.2 2001-04-22 01:56:15 ivan Exp $
+# $Id: svc_domain.import,v 1.3 2001-11-05 12:07:10 ivan Exp $
 
 use strict;
 use vars qw( %d_part_svc );
@@ -56,7 +56,7 @@ while (<NAMED_CONF>) {
   last if /^\s*directory\s+\"([\/\w+]+)\";/;
 } 
 $directory = $1 or die "can't locate directory in named.conf!";
-whlie (<NAMED_CONF>) {
+while (<NAMED_CONF>) {
   next unless /^\s*zone\s+\"([\w\.\-]+)\"\s+\{/;
   my $zone = $1;
   while (<NAMED_CONF>) {