# HG changeset patch
# User Rik <rik@octave.org>
# Date 1634137514 25200
# Node ID 120e878f343ff8e04214d9c1a7389c87ed8bbbfd
# Parent  72b6b886b9d01214abac3e0b298933c0a8ef6d6a
mkdir.m: issue a warning if DIR already exists (bug #61338)

* mkdir.m: When nargout==0, check status message and report a warning if
"directory exists" message found.

diff -r 72b6b886b9d0 -r 120e878f343f scripts/miscellaneous/mkdir.m
--- a/scripts/miscellaneous/mkdir.m	Wed Oct 13 11:26:43 2021 +0900
+++ b/scripts/miscellaneous/mkdir.m	Wed Oct 13 08:05:14 2021 -0700
@@ -72,6 +72,8 @@
   if (nargout == 0)
     if (! sts)
       error ("mkdir: operation failed: %s", msg);
+    elseif (strcmp (msg, "directory exists"))
+      warning ("mkdir: directory exists\n");
     endif
   else
     status = sts;