Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^3: PAUSE problem

by Anonymous Monk
on May 03, 2011 at 10:47 UTC ( [id://902672] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $mod = __PACKAGE__;
    $mod =~ s{::}{/}g;
    ...
    
    my $module_dir_qfn = realpath($mod);
    my $db_dir_qfn     = catdir($module_dir_qfn, 'db');
    
  2. or download this
    realpath( catfile( __FILE__, updir(), 'db' ) );