#!/usr/bin/perl

# Fixes:
# https://sourceforge.net/tracker/index.php?func=detail&aid=767913&group_id=6926&atid=106926

use Test::More tests => 1;

use strict;
use warnings;

use File::Spec;

use Config::IniFiles;

{
    my $ini = Config::IniFiles->new(
        -file => File::Spec->catfile('t', 'array.ini')
    );


    my $verdict;
    if (my @v = $ini->val("Sect", "NotExist"))
    {
        $verdict = 1;
    }
    else
    {
        $verdict = 0;
    }

    # TEST
    ok(!$verdict, "False should be returned in list context.");
}