parse ini usage results in uninitialized value in concatenation

[protoplasm]

I'm attempting to write some code using the Config::INI::Simple
module. When I run the app I get the following:

Use of uninitialized value in concatenation (.) or string at ./open-
file2.pl line 35.
Use of uninitialized value in concatenation (.) or string at ./open-
file2.pl line 36.
Use of uninitialized value in concatenation (.) or string at ./open-
file2.pl line 37.

I'm not sure what is uninitialized at those lines.

Here is the code:

#!/usr/bin/env perl

use Carp;
use Config::INI::Simple;
use English;
use strict;
use warnings;

use File::Find;
use File::HomeDir;
my $AesTestDir;
my @AesTestDirArray;
my $homeDir = File::HomeDir->my_home;
my @homeDirectories = ($homeDir);

use vars qw/*name *dir/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;

##--
my $conf = new Config::INI::Simple;

##-- Settings file name
my $INIFILE = "settings1.ini";

##-- Open settings file.
##   '<' open for reading
##   '>' create for writing
##   '>>' create and/or open for appending
open (my $FILE, '>>', $INIFILE) or croak "Can't open '$INIFILE':
$OS_ERROR";

# Read the config file.
$conf->read ("settings1.ini");

print $conf->{TestPaths}->{c_tests} . "\n";
print $conf->{TestPaths}->{j_tests} . "\n";
print $conf->{JarPath}->{jaest} . "\n";

# Find directories.
print "Locating AesTest directory...\n";
File::Find::find(\&AesTestDir, @homeDirectories);
AesTestDirSelect();

close $FILE or croak "Couldn't close '$INIFILE': $OS_ERROR";

# Find AesTest directories.
sub AesTestDir
{
        if (/^AesTest/ && -d)
        {
                $AesTestDir = $name;
                push @AesTestDirArray, $name;
        }
}

# If there are multiple AesTest directories found, allow the user to
select
# which directory they would like to use.
sub AesTestDirSelect
{
        if (@AesTestDirArray > 1)
        {
                # Get the array element (plus 1) from @AesTestDirArray.
                foreach my $element (0..$#AesTestDirArray)
                {
                        print "\t[";
                        print $element + 1 . "] $AesTestDirArray[$element]\n";
                }
                print "Select the AesTest directory you would like to use: ";
                chomp (my $selection = <STDIN>);

                $AesTestDir = $AesTestDirArray[$selection - 1];
        }
        else
        {
                print "   Found <$AesTestDir>\n";
        }
        # Maybe add more logic here to exit if the dir is not found.
}


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/