[Amsn-commits] SF.net SVN: amsn: [8962] branches/0_97/amsn/utils/base64/base64.tcl

[<th...@us...>]

Revision: 8962
          http://amsn.svn.sourceforge.net/amsn/?rev=8962&view=rev
Author:   thaven
Date:     2007-08-21 06:50:10 -0700 (Tue, 21 Aug 2007)

Log Message:
-----------
To branch: trunk rev. 8940: Fix a bug with invalid base64 strings

Modified Paths:
--------------
    branches/0_97/amsn/utils/base64/base64.tcl

Modified: branches/0_97/amsn/utils/base64/base64.tcl
===================================================================
--- branches/0_97/amsn/utils/base64/base64.tcl	2007-08-21 13:46:26 UTC (rev 8961)
+++ branches/0_97/amsn/utils/base64/base64.tcl	2007-08-21 13:50:10 UTC (rev 8962)
@@ -274,11 +274,13 @@
     #	The decoded value.
 
     proc ::base64::decode {string} {
-	if {[string length $string] == 0} {return ""}
 
 	set base64 $::base64::base64
 
 	binary scan $string c* X
+	
+	set output ""
+	
 	foreach x $X {
 	    set bits [lindex $base64 $x]
 	    if {$bits >= 0} {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.