? latest.diff
? latest2.diff
Index: uri.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/uri/uri.tcl,v
retrieving revision 1.15
diff -u -r1.15 uri.tcl
--- uri.tcl	26 Feb 2002 04:59:44 -0000	1.15
+++ uri.tcl	14 Nov 2002 00:34:33 -0000
@@ -350,7 +350,13 @@
 
     regsub -- {^/} $components(path) {} components(path)
 
-    return $scheme://$components(host)$port/$components(path)$query
+    if { [info exists components(fragment)] && $components(fragment) != "" } {
+	set components(fragment) "#$components(fragment)"
+    } else {
+	set components(fragment) ""
+    }
+
+    return $scheme://$components(host)$port/$components(path)$components(fragment)$query
 }
 
 proc uri::SplitFile {url} {
Index: uri.test
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/uri/uri.test,v
retrieving revision 1.11
diff -u -r1.11 uri.test
--- uri.test	5 Jun 2002 22:59:07 -0000	1.11
+++ uri.test	14 Nov 2002 00:34:33 -0000
@@ -362,6 +379,10 @@
     uri::canonicalize telnet://goo.test.net/
 } telnet://goo.test.net/
 
+test uri-7.0 {uri::split & uri::join} {
+    set ls [uri::split http://tcl.apache.org/websh/faq.ws3\#generic?foo=bar]
+    eval uri::join $ls
+} {http://tcl.apache.org/websh/faq.ws3#generic?foo=bar}
 
 # -------------------------------------------------------------------------
 
