From fc9e5ec9fad19fc5a8e179aebbe55241130559e3 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 13 Apr 2010 03:04:21 +0000
Subject: fixed bug where the path got messed up with relative paths,
 bug#2959373

svn path=/trunk/externals/pddp/; revision=13431
---
 pddplink.tcl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/pddplink.tcl b/pddplink.tcl
index 8ae2b33..f50cd18 100644
--- a/pddplink.tcl
+++ b/pddplink.tcl
@@ -5,6 +5,9 @@ proc pddplink_open {filename dir} {
     } elseif {[file pathtype $filename] eq "absolute"} {
         menu_openhtml $filename
     } elseif {[file exists [file join $dir $filename]]} {
+        set fullpath [file normalize [file join $dir $filename]]
+        set dir [file dirname $fullpath]
+        set filename [file tail $fullpath]
         menu_doc_open $dir $filename
     } else {
         bell ;# beep on error to provide instant feedback
-- 
cgit v1.2.1