[svn-r7373] Purpose:

    Code cleanup

Description:
    Cleanup H5Pclose code and also switch a few internal users of H5Pclose
to use H5I_dec_ref instead.

Platforms tested:
    FreeBSD 4.8 (sleipnir)
    too small for h5committest

1 files changed, 2 insertions, 7 deletions

diff --git a/src/H5P.c b/src/H5P.c
index 729dc16..bd09b6a 100644
--- a/src/H5P.c
+++ b/src/H5P.c
@@ -5164,7 +5164,6 @@ done:
 herr_t
 H5Pclose(hid_t plist_id)
 {
-    H5P_genplist_t	*plist;    /* Property list created */
     herr_t ret_value=SUCCEED;      /* return value */
 
     FUNC_ENTER_API(H5Pclose, FAIL);
@@ -5174,17 +5173,13 @@ H5Pclose(hid_t plist_id)
         HGOTO_DONE(SUCCEED);
 
     /* Check arguments. */
-    if (NULL == (plist = H5I_object_verify(plist_id, H5I_GENPROP_LST)))
+    if (H5I_GENPROP_LST != H5I_get_type(plist_id))
         HGOTO_ERROR(H5E_ARGS, H5E_BADTYPE, FAIL, "not a property list");
 
     /* Close the property list */
-    if (H5P_close(plist) < 0)
+    if (H5I_dec_ref(plist_id) < 0)
         HGOTO_ERROR(H5E_PLIST, H5E_CANTFREE, FAIL, "can't close");
 
-    /* Remove the property list from the ID manager now */
-    if (NULL == H5I_remove(plist_id))
-        HGOTO_ERROR(H5E_ARGS, H5E_CANTDELETE, FAIL, "can't delete property list");
-
 done:
     FUNC_LEAVE_API(ret_value);
 }   /* H5Pclose() */