Perl never checks "the same directory as my script", but it usually* checks in ".".

$ cat ../script.pl
#!/usr/bin/perl
use Foo;

$ cat ../Foo.pm
print("Foo!\n");  # In same dir as script
1;

$ cat Foo.pm
print("Foo?\n");  # In current dir
1;

$ ../script.pl
Foo?
[download]

However, "." is not in @INC under -T.

$ perl -le'print for @INC'
/home/eric/lib/perl5/i486-linux-gnu-thread-multi   <-- From PERL5LIB
/home/eric/lib/perl5                               <--   environ var
/etc/perl
/usr/local/lib/perl/5.8.8
/usr/local/share/perl/5.8.8
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.8
/usr/share/perl/5.8
/usr/local/lib/site_perl
.

$ perl -T -le'print for @INC'
/etc/perl
/usr/local/lib/perl/5.8.8
/usr/local/share/perl/5.8.8
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.8
/usr/share/perl/5.8
/usr/local/lib/site_perl
[download]

If you don't care about this aspect of taint (i.e. if your script isn't setuid or sudo), then you can add "." to @INC explicitly by adding BEGIN { push @INC, '.' } to your script or by changing -T to -T -I. (including the ".").

$ cat Foo.pm
print("Foo!\n");
1;

$ perl -e'use Foo'
Foo!

$ perl -T -e'use Foo'
Can't locate Foo.pm in @INC (@INC contains: ...) at -e line 1.
BEGIN failed--compilation aborted at -e line 1.

$ perl -T -I. -e'use Foo'
Foo!
[download]

* — For some unspecified definition of usual.

Update: Added more examples.

@INC would need to contain a . in order to load a module from the current directory. That's why it isn't loading. To add it is easy:

Command line solution: perl -L. autocomp.pl

Within-script solution: use lib '.';

Within-script solution: use lib '.';

In this case script will search libraries in cwd. If you want it to search them in the same directory as script itself you better use:

use FindBin qw($Bin);
use lib "$Bin";
[download]

Thanks for all the feedback "use lib '.';" seems to have done the trick... but now I have another problem with this script, it seems to keep looping on the following function:



#@data = SplitCSVLine($csv_line);
sub SplitCSVLine {
    my ($line) = @_;
    my ($value, @data);

    while(1) {
    last if($line =~ /^\s*$/);

    if($line =~ /^[^\"]/) {
        $line =~ s/(.*?)(,|$ )//x;
        $value = $1;
    } else {
        $line =~ s/\"((\"\"|[^\"])*)\"(,|$ )//x;
        $value = $1;
        $value =~ s/\"\"/\"/g if defined $value;
    }

    push @data, $value;
    }

    return @data;
}
[download]


I can't figure out why, the code that calls this function is:



sub GetStyleCodesMap {
    my @csv_lines = chrtoolbox::MyCat('style_codes.csv');

    my $line_num = 0;
    foreach my $line (@csv_lines) {
    $line_num++;
    next if($line_num == 1); #skip the header
    last if($line eq "\n"); #done reading the mapping
    @data = SplitCSVLine($line);
[download]


Any ideas?
Thanks again for all the help,
-BassKozz

If util.pm is in the same directory as your script but that is not your current working directory when you run the script then you need to add the directory the script is in to @INC, not ".".

See How do I add the directory my program lives in to the module/library search path? for options.