http://qs321.pair.com?node_id=902672


in reply to Re^2: PAUSE problem
in thread PAUSE problem

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' ) );