uuid - B - Tcl 9 portability fixes. Bumped to version 1.0.9

Author: andreas-kupries

modules/uuid/pkgIndex.tcl

@@ -1,2 +1,2 @@
 if {![package vsatisfies [package provide Tcl] 8.5 9]} {return}
-package ifneeded uuid 1.0.8 [list source [file join $dir uuid.tcl]]
+package ifneeded uuid 1.0.9 [list source [file join $dir uuid.tcl]]

modules/uuid/uuid.man

@@ -1,4 +1,4 @@
-[vset VERSION 1.0.8]
+[vset VERSION 1.0.9]
 [comment {-*- tcl -*- doctools manpage}]
 [manpage_begin uuid n [vset VERSION]]
 [keywords GUID]

modules/uuid/uuid.tcl

@@ -47,8 +47,7 @@ proc ::uuid::generate_tcl_machinfo {} {
   # If we have /dev/urandom just stream 128 bits from that
   ###
   if {[file exists /dev/urandom]} {
-    set fin [open /dev/urandom r]
-    fconfigure $fin -encoding binary  
+    set fin [open /dev/urandom rb]
     binary scan [read $fin 128] H* machinfo
     close $fin
   } elseif {[catch {package require nettool}]} {
@@ -237,7 +236,7 @@ namespace eval ::uuid {
     unset e
 }
 
-package provide uuid 1.0.8
+package provide uuid 1.0.9
 
 # -------------------------------------------------------------------------
 # Local variables: