Reintroduce TclpCreateDirectory for the benefit of tcl-scotty.

Comment indicates it was here earlier, now apparently scheduled
to be replaced by TclpObjCreateDirectory, but this will have to
do as a workaround for now.

1 files changed, 19 insertions, 0 deletions

diff --git a/lang/tcl/patches/patch-ah b/lang/tcl/patches/patch-ah
new file mode 100644
index 00000000000..a3c19d60d04
--- /dev/null
+++ b/lang/tcl/patches/patch-ah
@@ -0,0 +1,19 @@
+$NetBSD: patch-ah,v 1.1 2004/05/13 12:57:42 he Exp $
+
+--- tclUnixFCmd.c.orig	2003-10-03 19:45:37.000000000 +0200
++++ tclUnixFCmd.c
+@@ -561,6 +561,14 @@ TclpDeleteFile(path)
+  *---------------------------------------------------------------------------
+  */
+ 
++/* Reintroduced here for the benefit of scotty */
++int
++TclpCreateDirectory(path)
++    CONST char *path;
++{
++    return DoCreateDirectory(path);
++}
++
+ int 
+ TclpObjCreateDirectory(pathPtr)
+     Tcl_Obj *pathPtr;