1.mga2/SOURCES/racket-5.2.1-fix-libpng-linkage.patch

--- collects/racket/draw/unsafe/png.rkt 2012-03-26 19:15:04.000000000 +0400
+++ collects/racket/draw/unsafe/png.rkt~        2012-05-05 22:40:46.000000000 +0400
@@ -10,9 +10,11 @@
   [(unix) 
    ;; Most Linux distros supply "libpng12", while other Unix
    ;; variants often have just "libpng":
-   (with-handlers ([exn:fail:filesystem?
-                    (lambda (exn) (ffi-lib "libpng"))])
-     (ffi-lib "libpng12" '("0" "")))]
+   (ffi-lib "libpng15" '("15" "")
+           #:fail (lambda ()
+                    (ffi-lib "libpng12" '("0" "")
+                             #:fail (lambda ()
+                                      (ffi-lib "libpng")))))]
   [(macosx) (ffi-lib "libpng14.14.dylib")]
   [(windows) 
    (ffi-lib "zlib1.dll")
1	--- collects/racket/draw/unsafe/png.rkt 2012-03-26 19:15:04.000000000 +0400
2	+++ collects/racket/draw/unsafe/png.rkt~ 2012-05-05 22:40:46.000000000 +0400
3	@@ -10,9 +10,11 @@
4	[(unix)
5	;; Most Linux distros supply "libpng12", while other Unix
6	;; variants often have just "libpng":
7	- (with-handlers ([exn:fail:filesystem?
8	- (lambda (exn) (ffi-lib "libpng"))])
9	- (ffi-lib "libpng12" '("0" "")))]
10	+ (ffi-lib "libpng15" '("15" "")
11	+ #:fail (lambda ()
12	+ (ffi-lib "libpng12" '("0" "")
13	+ #:fail (lambda ()
14	+ (ffi-lib "libpng")))))]
15	[(macosx) (ffi-lib "libpng14.14.dylib")]
16	[(windows)
17	(ffi-lib "zlib1.dll")