Debugged scripts can't find modules in the current directory

[dandv]

When stepping into this script on Windows, Padre doesn't change to the correct directory, because the script can't find a module located in the same directory:

use strict;
use Cwd;

print getcwd(), "\n";  # wrong, getcwd() returns the My Documents directory

require Module;

print Module::foo();

Module.pm exists in the same directory as the script:

package Module;

sub foo { 'bar' }

1;

When run from the command line in c:\programs\perl, the script works as expected and prints

c:/programs/perl
bar

[bowtie]

dandv

is this still relevant in Debug2

had you considered using

use FindBin qw($Bin);
use lib ("$Bin");