applied mongodb-perl-driver patch.

nightsailer · Sep 5, 2010 · 0563c53 · 0563c53
1 parent 05a1dcf
commit 0563c53
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/AnyMongo.xs b/AnyMongo.xs
@@ -5,7 +5,9 @@ MODULE = AnyMongo  PACKAGE = AnyMongo
 PROTOTYPES: DISABLE
 
 BOOT:
-    gv_fetchpv("AnyMongo::bson_char",  GV_ADDMULTI, SVt_IV);
+    gv_fetchpv("AnyMongo::BSON::bson_char",  GV_ADDMULTI, SVt_IV);
+    gv_fetchpv("AnyMongo::BSON::utf8_flag_on",  GV_ADDMULTI, SVt_IV);
+    gv_fetchpv("AnyMongo::BSON::use_boolean",  GV_ADDMULTI, SVt_IV);
 
 MODULE = AnyMongo  PACKAGE = AnyMongo::BSON
 PROTOTYPES: DISABLE

diff --git a/mongo_support.c b/mongo_support.c
@@ -344,6 +344,7 @@ elem_to_sv (int type, buffer *buf)
     break;
   }
   case BSON_BOOL: {
+    dSP;
     char d = *buf->pos++;
     int count;
     SV *use_bool = get_sv("AnyMongo::BSON::use_boolean", 0);
@@ -353,8 +354,6 @@ elem_to_sv (int type, buffer *buf)
       break;
     }
 
-    dSP;
-
     SAVETMPS;
 
     PUSHMARK(SP);