From: Jack Jansen <jack.jansen@cwi.nl>
Date: Tue, 12 Mar 2002 15:05:11 +0000 (+0000)
Subject: Backport of 1.14:
X-Git-Tag: v2.2.1c1~72
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=6ae46a7cbf4f0feb63e6cece78f6a935cd18ed3b;p=thirdparty%2FPython%2Fcpython.git

Backport of 1.14:
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, '')