From 0a98e76136d226f99dd925edd9f1089d4ef7aa08 Mon Sep 17 00:00:00 2001
From: Marcelo Matus <mmatus@acms.arizona.edu>
Date: Wed, 7 Dec 2005 07:39:44 +0000
Subject: [PATCH] return PL_sv_undef for empty strings, as in the old perl
 library

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7940 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Lib/perl5/perlstrings.swg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Lib/perl5/perlstrings.swg b/Lib/perl5/perlstrings.swg
index ff37931f1..61ed59bdf 100644
--- a/Lib/perl5/perlstrings.swg
+++ b/Lib/perl5/perlstrings.swg
@@ -53,7 +53,7 @@ SWIG_FromCharPtrAndSize(const char* carray, size_t size)
       %delete_array(tmp);
     }
   } else {
-    sv_setpv(obj, "");
+    sv_setsv(obj, &PL_sv_undef);
   }
   return obj;
 }