X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FUtils.pm;h=d27fa9c5e83c7dedc153261735c660f461257c4f;hp=4e5571e1536dc1384886fbb2018a3a3b02625041;hb=2f3812528068bc1d9f7840067f0c03d36cd47e6d;hpb=059c085bfcead450e70ace9ef193aa99ac2ab37d diff --git a/lib/Catalyst/Utils.pm b/lib/Catalyst/Utils.pm index 4e5571e..d27fa9c 100644 --- a/lib/Catalyst/Utils.pm +++ b/lib/Catalyst/Utils.pm @@ -8,6 +8,7 @@ use Path::Class; use URI; use Class::Inspector; use Carp qw/croak/; +use Cwd; =head1 NAME @@ -160,6 +161,7 @@ sub home { # find the @INC entry in which $file was found (my $path = $inc_entry) =~ s/$file$//; + $path ||= cwd() if !defined $path || !length $path; my $home = dir($path)->absolute->cleanup; # pop off /lib and /blib if they're there @@ -329,10 +331,9 @@ sub env_value { return; } -=head1 AUTHOR +=head1 AUTHORS -Sebastian Riedel, C -Yuval Kogman, C +Catalyst Contributors, see Catalyst.pm =head1 COPYRIGHT