Mercurial > octave-nkf

diff liboctave/oct-shlib.cc @ 5864:e884ab4f29ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-06-22 00:57:27 by jwe]
author jwe
date Thu, 22 Jun 2006 00:57:28 +0000
parents faafc2d98b8d
children 8d285942fc3c
line wrap: on
line diff
--- a/liboctave/oct-shlib.cc	Tue Jun 20 17:56:59 2006 +0000
+++ b/liboctave/oct-shlib.cc	Thu Jun 22 00:57:28 2006 +0000
@@ -299,7 +299,8 @@
 {
   if (is_open ())
     {
-      do_close_hook (cl_hook);
+      if (cl_hook)
+	do_close_hook (cl_hook);
 
       dlclose (library);
 
@@ -402,7 +403,8 @@
 {
   if (is_open ())
     {
-      do_close_hook (cl_hook);
+      if (cl_hook)
+	do_close_hook (cl_hook);
 
       shl_unload (library);
 
@@ -530,7 +532,8 @@
 {
   if (is_open ())
     {
-      do_close_hook (cl_hook);
+      if (cl_hook)
+	do_close_hook (cl_hook);
 
       FreeLibrary (handle);