Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^3: PAUSE problem

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


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


Comment on Re^3: PAUSE problem
Select or Download Code
Re^4: PAUSE problem
by hsmyers (Canon) on May 03, 2011 at 14:18 UTC
    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.

    --hsm

    "Never try to teach a pig to sing...it wastes your time and it annoys the pig."

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://902672]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (12)
As of 2014-09-23 07:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (210 votes), past polls