Tk Library Source Code: Artifact [f693ab9378]

Artifact f693ab937862be21e190e4774087054f830a8c42:

Attachment "patch-jpeg" to ticket [2646568fff] added by kot 2009-02-28 03:59:35.

--- modules/jpeg/jpeg.tcl	2008-10-17 01:14:26.000000000 -0400
+++ modules/jpeg/jpeg.tcl	2009-02-27 15:45:23.000000000 -0500
@@ -52,5 +52,5 @@
 
 proc ::jpeg::imageInfo {file} {
-    set fh [openJFIF $file r+]
+    set fh [openJFIF $file r]
     set data {}
     if {[set app0 [lsearch -inline [markers $fh] "e0 *"]] != ""} {