diff options
author | Jelmer Vernooij <jelmer@samba.org> | 2010-09-20 20:02:21 -0700 |
---|---|---|
committer | Jelmer Vernooij <jelmer@samba.org> | 2010-09-20 22:40:46 -0700 |
commit | a7393449eba9fc5173934096651b2fa232ae6764 (patch) | |
tree | 30526d173ef16a17a6bb6bfd1464939200e015b9 /pidl | |
parent | 5dd47eeac275d8a9da0a47fda3d71f69ee6c0c4a (diff) | |
download | samba-a7393449eba9fc5173934096651b2fa232ae6764.tar.gz samba-a7393449eba9fc5173934096651b2fa232ae6764.tar.bz2 samba-a7393449eba9fc5173934096651b2fa232ae6764.zip |
pidl: Fix segfault when accessing unicode objects.
Diffstat (limited to 'pidl')
-rw-r--r-- | pidl/lib/Parse/Pidl/Samba4/Python.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/pidl/lib/Parse/Pidl/Samba4/Python.pm b/pidl/lib/Parse/Pidl/Samba4/Python.pm index 4ee4a37f94..2c42b0a874 100644 --- a/pidl/lib/Parse/Pidl/Samba4/Python.pm +++ b/pidl/lib/Parse/Pidl/Samba4/Python.pm @@ -1152,7 +1152,16 @@ sub ConvertObjectToPythonLevel($$$$$$) if (is_charset_array($e, $l)) { # FIXME: Use Unix charset setting rather than utf-8 - $self->pidl("$py_var = PyUnicode_Decode_check_null($var_name, strlen($var_name), \"utf-8\", \"ignore\");"); + $self->pidl("if ($var_name == NULL) {"); + $self->indent; + $self->pidl("$py_var = Py_None;"); + $self->pidl("Py_INCREF($py_var);"); + $self->deindent; + $self->pidl("} else {"); + $self->indent; + $self->pidl("$py_var = PyUnicode_Decode($var_name, strlen($var_name), \"utf-8\", \"ignore\");"); + $self->deindent; + $self->pidl("}"); } else { die("No SIZE_IS for array $var_name") unless (defined($l->{SIZE_IS})); my $length = $l->{SIZE_IS}; |