diff options
| author | khoff <khoff> | 2003-04-24 01:00:42 +0000 |
|---|---|---|
| committer | khoff <khoff> | 2003-04-24 01:00:42 +0000 |
| commit | d540445a9a35750e1127e3854ecba420d588a022 (patch) | |
| tree | 46303fdc5d3356fb32f3be67c538553cd43eb734 /FS | |
| parent | 344596452274c17c2c60bf2b002c9358cbd510a3 (diff) | |
Apparently deleting elements from svc_Common->hashref is bad.
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/part_export/sqlmail.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/part_export/sqlmail.pm b/FS/FS/part_export/sqlmail.pm index 0c0cb367b..f97674c27 100644 --- a/FS/FS/part_export/sqlmail.pm +++ b/FS/FS/part_export/sqlmail.pm @@ -142,7 +142,7 @@ sub update_values { # Update records to conform to a particular server_type. my ($self, $svc, $svcdb) = (shift,shift,shift); - my $svchash = $svc->hashref or return ''; + my $svchash = { %{$svc->hashref} } or return ''; # We need a copy. if ($svcdb eq 'svc_acct') { if ($self->option('server_type') eq 'courier_crypt') { |