X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_export%2Facct_sql_status.pm;h=78a086c3e6c601911d403983bd81c22214b705b4;hp=bcc1e01164ccdb1154aef5f4de75b6b2698c82ca;hb=6b06edae106b8391da872e6e60a48dcf9b12158a;hpb=25180d667effd00ae7c51ca8a51c806ece049547

diff --git a/FS/FS/part_export/acct_sql_status.pm b/FS/FS/part_export/acct_sql_status.pm
index bcc1e0116..78a086c3e 100644
--- a/FS/FS/part_export/acct_sql_status.pm
+++ b/FS/FS/part_export/acct_sql_status.pm
@@ -4,14 +4,15 @@ use base qw( FS::part_export::sql_Common );
 use strict;
 use warnings;
 use vars qw( %info );
+use Tie::IxHash;
 
-my $options = { %{__PACKAGE__->sql_options} };#a new hashref so we don't pollute
-delete $options->{$_} for qw( table schema static primary_key );
+tie my %options, 'Tie::IxHash', %{__PACKAGE__->sql_options};
+delete $options{$_} for qw( table schema static primary_key );
 
 %info = (
   'svc'      => 'svc_acct',
   'desc'     => 'Mailbox status information from SQL',
-  'options'  => $options,
+  'options'  => \%options,
   'nodomain' => '',
   'notes'    => <<END
 Read mailbox status information (vacation and spam settings) from an SQL