diff options
author | ivan <ivan> | 2006-04-09 23:24:39 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-04-09 23:24:39 +0000 |
commit | f98eec7448db3869808e0154969588f0f2e4098d (patch) | |
tree | c42e4ea548f1afedc0bcb194f9660e8773ce13e1 /FS | |
parent | af4493b92157f6e443df148b88d9f65613da1e91 (diff) |
should fix "Can't use string ("old_uid") as a SCALAR ref while "strict refs" in use" error
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_export/domain_shellcommands.pm | 27 |
1 files changed, 15 insertions, 12 deletions
diff --git a/FS/FS/part_export/domain_shellcommands.pm b/FS/FS/part_export/domain_shellcommands.pm index d15f41a84..994c113bf 100644 --- a/FS/FS/part_export/domain_shellcommands.pm +++ b/FS/FS/part_export/domain_shellcommands.pm @@ -112,19 +112,22 @@ sub _export_replace { ( $old_qdomain = $old_domain ) =~ s/\./:/g; #see dot-qmail(5): EXTENSION ADDRESSES ( $new_qdomain = $new_domain ) =~ s/\./:/g; #see dot-qmail(5): EXTENSION ADDRESSES - if ( $old->catchall ) { + { no strict 'refs'; - my $svc_acct = $old->catchall_svc_acct; - ${"old_$_"} = $svc_acct->getfield($_) foreach qw(uid gid dir); - } else { - ${"old_$_"} = '' foreach qw(uid gid dir); - } - if ( $new->catchall ) { - no strict 'refs'; - my $svc_acct = $new->catchall_svc_acct; - ${"new_$_"} = $svc_acct->getfield($_) foreach qw(uid gid dir); - } else { - ${"new_$_"} = '' foreach qw(uid gid dir); + + if ( $old->catchall ) { + my $svc_acct = $old->catchall_svc_acct; + ${"old_$_"} = $svc_acct->getfield($_) foreach qw(uid gid dir); + } else { + ${"old_$_"} = '' foreach qw(uid gid dir); + } + if ( $new->catchall ) { + my $svc_acct = $new->catchall_svc_acct; + ${"new_$_"} = $svc_acct->getfield($_) foreach qw(uid gid dir); + } else { + ${"new_$_"} = '' foreach qw(uid gid dir); + } + } #done setting variables for the command |