X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a1344dd2154b4470e16cac105d3e079da28c896a..cd7a8267705810d57852612d1b551cdb7db4fdb4:/ext/ODBM_File/ODBM_File.xs

diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs
index 95dedff..695d392 100644
--- a/ext/ODBM_File/ODBM_File.xs
+++ b/ext/ODBM_File/ODBM_File.xs
@@ -92,7 +92,7 @@ odbm_TIEHASH(dbtype, filename, flags, mode)
 
 	    if (dbmrefcnt++)
 		croak("Old dbm can only open one database");
-	    New(0, tmpbuf, strlen(filename) + 5, char);
+	    Newx(tmpbuf, strlen(filename) + 5, char);
 	    SAVEFREEPV(tmpbuf);
 	    sprintf(tmpbuf,"%s.dir",filename);
 	    if (stat(tmpbuf, &PL_statbuf) < 0) {