# HG changeset patch
# User jwe
# Date 1201679869 0
# Node ID 09f833d41f68455ff077e8ebbaa9282d8869b22e
# Parent  ccf8e0410ee0f87edaa6e81f690d142f1088f1e7
[3-0-0-branch @ 2008-01-30 07:57:48 by jwe]

diff -r ccf8e0410ee0 -r 09f833d41f68 scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Jan 30 07:44:18 2008 +0000
+++ b/scripts/ChangeLog	Wed Jan 30 07:57:49 2008 +0000
@@ -1,5 +1,9 @@
 2008-01-30  John W. Eaton  <jwe@octave.org>
 
+	* miscellaneous/tempdir.m: Append filesep to name for
+	compatibility.  Warn if not a directory or directory does not
+	exist.
+
 	* strings/deblank.m: Improve compatibility.
 
 2008-01-28  Michael Goffioul <michael.goffioul@gmail.com>
diff -r ccf8e0410ee0 -r 09f833d41f68 scripts/miscellaneous/tempdir.m
--- a/scripts/miscellaneous/tempdir.m	Wed Jan 30 07:44:18 2008 +0000
+++ b/scripts/miscellaneous/tempdir.m	Wed Jan 30 07:57:49 2008 +0000
@@ -24,8 +24,16 @@
 function dirname = tempdir ()
 
   dirname = getenv ("TMPDIR");
-  if (length (dirname) == 0)
+  if (isempty (dirname))
     dirname = P_tmpdir;
   endif
 
+  if (! strcmp (dirname(end), filesep))
+    strcat (dirname, filesep);
+  endif
+
+  if (! isdir (dirname))
+    warning ("tempdir: `%s' does not exist or is not a directory", dirname);
+  endif
+
 endfunction