various little nits

[perl5.git] / ext / SDBM_File / sdbm / dbd.c

diff --git a/ext/SDBM_File/sdbm/dbd.c b/ext/SDBM_File/sdbm/dbd.c
index 04ab842..f60f91a 100644 (file)
--- a/ext/SDBM_File/sdbm/dbd.c
+++ b/ext/SDBM_File/sdbm/dbd.c
@@ -26,6 +26,9 @@ char **argv;
 
        if (p = argv[1]) {
                name = (char *) malloc((n = strlen(p)) + 5);
+               if (!name)
+                   oops("cannot get memory");
+
                strcpy(name, p);
                strcpy(name + n, ".pag");