This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 5
[perl5.git] / ext / dbm / SDBM_File.xs
index 0b898ad..25cb67c 100644 (file)
@@ -5,6 +5,7 @@
 
 typedef DBM* SDBM_File;
 #define sdbm_new(dbtype,filename,flags,mode) sdbm_open(filename,flags,mode)
+#define nextkey(db,key) sdbm_nextkey(db)
 
 MODULE = SDBM_File     PACKAGE = SDBM_File     PREFIX = sdbm_
 
@@ -43,7 +44,7 @@ sdbm_firstkey(db)
        SDBM_File       db
 
 datum
-sdbm_nextkey(db, key)
+nextkey(db, key)
        SDBM_File       db
        datum           key