- 455933 update to CGI-3.38

- fix fuzz problems (patch6)
- 217833 pos() function handle unicode characters correct

perl-5.10.0-libresolv.patch

@@ -0,0 +1,12 @@
+diff -up perl-5.10.0/Configure.didi perl-5.10.0/Configure
+--- perl-5.10.0/Configure.didi	2007-12-18 11:47:07.000000000 +0100
++++ perl-5.10.0/Configure	2008-07-21 10:51:16.000000000 +0200
+@@ -1327,7 +1327,7 @@ libswanted_uselargefiles=''
+ : set usesocks on the Configure command line to enable socks.
+ : List of libraries we want.
+ : If anyone needs extra -lxxx, put those in a hint file.
+-libswanted="sfio socket bind inet nsl nm ndbm gdbm dbm db malloc dl dld ld sun"
++libswanted="sfio socket resolv inet nsl nm ndbm gdbm dbm db malloc dl dld ld sun"
+ libswanted="$libswanted m crypt sec util c cposix posix ucb bsd BSD"
+ : We probably want to search /usr/shlib before most other libraries.
+ : This is only used by the lib/ExtUtils/MakeMaker.pm routine extliblist.

perl-5.10.0-pos.patch

@@ -17,8 +17,8 @@ diff -up perl-5.10.0/pp_ctl.c.pos perl-5.10.0/pp_ctl.c
 -	if (DO_UTF8(sv))
 -	    sv_pos_b2u(sv, &i);
 -	mg->mg_len = i;
-     }
++		mg->mg_len = m - orig;
-+    mg->mg_len = m - orig;
+	}
      if (old != rx)
  	(void)ReREFCNT_inc(rx);
      cx->sb_rxtainted |= RX_MATCH_TAINTED(rx);

perl.spec

@@ -810,7 +810,7 @@ upstream tarball from perl.org.
 %patch17 -p1
 %patch18 -p1
 %patch19 -p1
-%patch20 -p1
+#%patch20 -p1
 #
 # Candidates for doc recoding (need case by case review):
 # find . -name "*.pod" -o -name "README*" -o -name "*.pm" | xargs file -i | grep charset= | grep -v '\(us-ascii\|utf-8\)'