[Padre-dev] [Padre-commit] rev 3694 - trunk/Padre/lib/Padre

[Gabor Szabo]

Wow, when do we have files with relative path ?

I thought we always compute and save the full path when opening a file.

Gabor

On Fri, Apr 3, 2009 at 7:31 AM,  <svn at perlide.org> wrote:
> Author: garu
> See also: http://padre.perlide.org/changeset/3694
> Date: 2009-04-02 21:31:56 -0700 (Thu, 02 Apr 2009)
> New Revision: 3694
>
> Modified:
>   trunk/Padre/lib/Padre/Util.pm
> Log:
> Fixed bug when finding project dirs on files opened with relative paths
>
>
> Modified: trunk/Padre/lib/Padre/Util.pm
> ===================================================================
> --- trunk/Padre/lib/Padre/Util.pm       2009-04-02 21:30:41 UTC (rev 3693)
> +++ trunk/Padre/lib/Padre/Util.pm       2009-04-03 04:31:56 UTC (rev 3694)
> @@ -248,7 +248,13 @@
>
>  sub get_project_dir {
>        my $filename = shift;
> -
> +       return unless $filename;
> +
> +       # check for potential relative path on filename
> +       if ($filename =~ m{\.\.}) {
> +               require Cwd;
> +               $filename = Cwd::realpath($filename);
> +       }
>        my $olddir = File::Basename::dirname($filename);
>        my $dir    = $olddir;
>        while (1) {
>