--- BDB/BDB.xs	2007/02/06 01:09:04	1.6
+++ BDB/BDB.xs	2007/02/08 22:14:01	1.7
@@ -810,7 +810,7 @@
   if (!SvOK (arg))								\
     {										\
       if (!nullok)								\
-        Perl_croak (# var " must be a " # class " object, not undef");		\
+        croak (# var " must be a " # class " object, not undef");		\
 										\
       (var) = 0;								\
     }										\
@@ -819,10 +819,10 @@
       IV tmp = SvIV ((SV*) SvRV (arg));                         		\
       (var) = INT2PTR (type, tmp);                              		\
       if (!var)									\
-        Perl_croak (# var " is not a valid " # class " object anymore");	\
+        croak (# var " is not a valid " # class " object anymore");		\
     }                                                           		\
   else                                                          		\
-    Perl_croak (# var " is not of type " # class);				\
+    croak (# var " is not of type " # class);					\
 										\
 
 static void