[Catalyst] Re: setup_home bug (with fix): wrong detection of home directory

[Oleg Pronin]

hello?

2007/9/28, Oleg Pronin <syber.rus at gmail.com>:
>
> Hello.
>
> I put the service script into
> APP_HOME/script/service/online_users.plx
>
> In the script:
>
> use FindBin;
> use lib "$FindBin::Bin/../../lib";
> use MyApp;
>
> print MyApp->path_to('/');  # prints APP_HOME/script/service/
>
> Fix for Catalyst::Utils (sub Catalyst::Utils::home):
>
> 174,176c174,177
> <                 my ($lastdir) =3D $home->dir_list( -1, 1 );
> <                 if ( $lastdir eq '..' ) {
> <                     $home =3D dir($home)->parent->parent;
> ---
> >                 my $i =3D 0;
> >                 $i++ while $home->dir_list( -$i, 1 ) eq '..';
> >                 if ($i) {
> >                     $home =3D dir($home)->parent for 1..($i*2);
>
> in my case at line 174 $home =3D 'APP_HOME/script/service/../../'
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/catalyst/attachments/20071008/21af5=
21e/attachment.htm