This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Following Jarkko's advice, it seems that ODBM_File cannot be
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 25 Aug 2006 15:45:08 +0000 (15:45 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 25 Aug 2006 15:45:08 +0000 (15:45 +0000)
compiled as C++ as-is.

p4raw-id: //depot/perl@28757

ext/ODBM_File/ODBM_File.xs

index 3504ff6..2510d5e 100644 (file)
@@ -15,11 +15,7 @@ int  dbminit(char* filename);
 int    dbmclose(void);
 datum  fetch(datum key);
 int    store(datum key, datum dat);
-#  ifdef __cplusplus
-int    odelete(datum key);     /* Cannot be delete() for C++. */
-#  else
 int    delete(datum key); 
-#  endif
 datum  firstkey(void);
 datum  nextkey(datum key);
 #endif
@@ -57,11 +53,7 @@ typedef datum datum_value ;
 
 #define odbm_FETCH(db,key)                     fetch(key)
 #define odbm_STORE(db,key,value,flags)         store(key,value)
-#ifdef __cplusplus
-#  define odbm_DELETE(db,key)                  odelete(key)
-#else
-#  define odbm_DELETE(db,key)                  delete(key)
-#endif
+#define odbm_DELETE(db,key)                    delete(key)
 #define odbm_FIRSTKEY(db)                      firstkey()
 #define odbm_NEXTKEY(db,key)                   nextkey(key)