Thank you for PR.

I would sometimes like to check one. 
Isn't this code of this point right? 

    File::Spec->catdir( dirname(__FILE__), qw| .. lib perl5 |