#!/usr/bin/perl
use Test::More tests => 1;
use strict;
use warnings;
use File::Spec;
use Config::IniFiles;
{
tie my %ini, 'Config::IniFiles',
(-file => File::Spec->catfile('t', 'array.ini'))
;
my %new_sect;
%new_sect = %{$ini{Sect}};
$new_sect{Par}[1] = 'A';
# TEST
is_deeply ($ini{Sect}{Par}, [1,2,3], '%ini was not modified');
}