From: Just van Rossum <just@letterror.com>
Date: Sun, 10 Mar 2002 19:28:02 +0000 (+0000)
Subject: mkalias() now also works for folders. Fixes bug #515830.
X-Git-Tag: v2.3c1~6532
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=a2168eceb0277f767877a0845537f6564f0410a0;p=thirdparty%2FPython%2Fcpython.git

mkalias() now also works for folders. Fixes bug #515830.
---

diff --git a/Mac/Lib/macostools.py b/Mac/Lib/macostools.py
index 72f2032adf98..43ab74fb7760 100644
--- a/Mac/Lib/macostools.py
+++ b/Mac/Lib/macostools.py
@@ -34,9 +34,13 @@ def mkalias(src, dst, relative=None):
 		alias = srcfss.NewAlias(relativefss)
 	else:
 		alias = srcfss.NewAlias()
-	srcfinfo = srcfss.GetFInfo()
-
-	Res.FSpCreateResFile(dstfss, srcfinfo.Creator, srcfinfo.Type, -1)
+	
+	if os.path.isdir(src):
+		cr, tp = 'MACS', 'fdrp'
+	else:
+		cr, tp = srcfss.GetCreatorType()
+	
+	Res.FSpCreateResFile(dstfss, cr, tp, -1)
 	h = Res.FSpOpenResFile(dstfss, 3)
 	resource = Res.Resource(alias.data)
 	resource.AddResource('alis', 0, '')