summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 4590307)
raw | patch | inline | side by side (parent: 4590307)
author | Bert Wesarg <bert.wesarg@googlemail.com> | |
Fri, 19 Nov 2010 20:43:48 +0000 (21:43 +0100) | ||
committer | Pat Thoyts <patthoyts@users.sourceforge.net> | |
Mon, 22 Nov 2010 21:52:51 +0000 (21:52 +0000) |
browser_path used to end with a slash, so the regexp matches the empty string
and therefore removes nothing.
Fix this.
Signed-off-by: Bert Wesarg <bert.wesarg@googlemail.com>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
and therefore removes nothing.
Fix this.
Signed-off-by: Bert Wesarg <bert.wesarg@googlemail.com>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
lib/browser.tcl | patch | blob | history |
diff --git a/lib/browser.tcl b/lib/browser.tcl
index c2415729e036d87bc892b53901bd45d7e71b5ec2..a8c622351167be937b9f02df149a1a6ec2a16e98 100644 (file)
--- a/lib/browser.tcl
+++ b/lib/browser.tcl
if {$browser_stack eq {}} {
regsub {:.*$} $browser_path {:} browser_path
} else {
- regsub {/[^/]+$} $browser_path {} browser_path
+ regsub {/[^/]+/$} $browser_path {/} browser_path
}
set browser_status [mc "Loading %s..." $browser_path]
_ls $this [lindex $parent 0] [lindex $parent 1]