Changeset 1cc95709

Timestamp:

Feb 19, 2007, 7:05:36 PM (18 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

be5aa09

Parents:

186cdc4

git-author:

Nelson Elhage <nelhage@mit.edu> (02/19/07 19:05:23)

git-committer:

Nelson Elhage <nelhage@mit.edu> (02/19/07 19:05:36)

Message:

Don't segfault if we encounter a message type without a corresponding
perl class.

File:

• perlconfig.c (modified) (2 diffs)

perlconfig.c

@@ -28 +28 @@
 SV *owl_perlconfig_message2hashref(owl_message *m)
 {
-  HV *h;
+  HV *h, *stash;
   SV *hr;
   char *ptr, *blessas, *type;
@@ -93 +93 @@
 
   hr = sv_2mortal(newRV_noinc((SV*)h));
-  hr = sv_bless(hr, gv_stashpv(blessas,0));
+  stash =  gv_stashpv(blessas,0);
+  if(!stash) {
+    owl_function_error("No such class: %s for message type %s", blessas, owl_message_get_type(m));
+    stash = gv_stashpv("BarnOwl::Message", 1);
+  }
+  hr = sv_bless(hr,stash);
   owl_free(type);
   owl_free(blessas);