From f3a66fc4b25eb9fcc74a9fea56c48a61a1eea012 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 12 Feb 2002 18:37:43 +0000
Subject: [PATCH] fixes:

In string, @domain now must be written as \@domain at ./svc_acct.export
line 292, near "^append @domain"
Global symbol "@domain" requires explicit package name at
./svc_acct.export line 292.
Execution of ./svc_acct.export aborted due to compilation errors.
---
 bin/svc_acct.export | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/svc_acct.export b/bin/svc_acct.export
index e28de4aa7..3ea444df9 100755
--- a/bin/svc_acct.export
+++ b/bin/svc_acct.export
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 #
-# $Id: svc_acct.export,v 1.29 2002-02-12 02:11:07 ivan Exp $
+# $Id: svc_acct.export,v 1.30 2002-02-12 18:37:43 ivan Exp $
 #
 # Create and export password, radius and vpopmail password files:
 # passwd, passwd.adjunct, shadow, acp_passwd, acp_userinfo, acp_dialup
@@ -289,7 +289,7 @@ foreach $svc_domain (sort {$a->domain cmp $b->domain} @svc_domain) {
       $username=$svc_acct->username . $svc_domain->domain;
     } elsif ($userpolicy =~ /^append domain$/) {
       $username=$svc_acct->username . $svc_domain->domain;
-    } elsif ($userpolicy =~ /^append @domain$/) {
+    } elsif ($userpolicy =~ /^append \@domain$/) {
       $username=$svc_acct->username . '@'. $svc_domain->domain;
     } else {
       die "Unknown policy in username_policy\n";
-- 
2.20.1