Re^3: PAUSE problem

[Anonymous Monk]

Don't understand the last line though; what did you have in mind?

Nothing important, just hoops. Instead of

my $mod = __PACKAGE__;
$mod =~ s{::}{/}g;
$mod .= '.pm';
$mod = $INC{$mod};
$mod =~ s/EPD\.pm//i;

my $module_dir_qfn = realpath($mod);
my $db_dir_qfn     = catdir($module_dir_qfn, 'db');

You might have used

realpath( catfile( __FILE__, updir(), 'db' ) );

[hsmyers]

It took a bit of head bashing, but this:

my $db_dir_qfn = realpath( catfile( __PACKAGE__, updir(), 'db' ) );

seems to do the trick nicely. Love getting rid of lines of code for one--- particularly when the lines gone look more like the much maligned perl line noise! Thanks for the suggestion.