Backed out #1798728 due to regression pointed out by Josh Cherry on swig-user

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10196 626c5289-ae23-0410-ae9c-e8d60b6d4f22

CHANGES.current

@@ -1,6 +1,9 @@
 Version 1.3.34 (in progress)
 ============================
 
+12/16/2007: wsfulton
+	    [Perl] Backed out #1798728 - numbers can be passed to functions taking char *
+
 12/16/2007: wsfulton
 	    Fix #1832613 - Templates and some typedefs involving pointers or function pointers
 

Lib/perl5/perlstrings.swg

@@ -6,7 +6,7 @@
 SWIGINTERN int
 SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc)
 {
-  if (SvOK(obj)) {
+  if (SvPOK(obj)) {
     STRLEN len = 0;
     char *cstr = SvPV(obj, len); 
     size_t size = len + 1;