Release 5 (by relup.sh)

[packages/perl.git] / perl-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects.patch

diff --git a/perl-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects.patch b/perl-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects.patch
index 9b503c653e384c932006dc9e1f4b91e51990a121..d07a384caf53b52a20bba1e5a661a289ad4452ee 100644 (file)
--- a/perl-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects.patch
+++ b/perl-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects.patch
@@ -41,14 +41,14 @@ index 33e08e2..7160f54 100644
        GDBM_FILE       dbp ;
        SV *    filter[4];
        int     filtering ;
-@@ -89,6 +90,7 @@ gdbm_TIEHASH(dbtype, name, read_write, mode)
-           if ((dbp =  gdbm_open(name, GDBM_BLOCKSIZE, read_write, mode,
-                                 (FATALFUNC) croak_string))) {
-               RETVAL = (GDBM_File)safecalloc(1, sizeof(GDBM_File_type)) ;
-+              RETVAL->owner = aTHX;
-               RETVAL->dbp = dbp ;
-           }
-           
+@@ -99,6 +99,7 @@ gdbm_TIEHASH(dbtype, name, read_write, m
+       }
+       if (dbp) {
+           RETVAL = (GDBM_File)safecalloc(1, sizeof(GDBM_File_type));
++          RETVAL->owner = aTHX;
+           RETVAL->dbp = dbp;
+       } else {
+           RETVAL = NULL;
 @@ -109,12 +111,14 @@ gdbm_DESTROY(db)
        PREINIT:
        int i = store_value;