From 20630fda3e6493f0ffe8b47cdf70f298360a5342 Mon Sep 17 00:00:00 2001
From: Miro Jurisic <meeroh@mit.edu>
Date: Sat, 10 Jul 1999 16:52:12 +0000
Subject: [PATCH] More fixed to make perl script run cirrectly from any root

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@11551 dc483132-0cff-0310-8789-dd5450dbe970
---
 src/mac/Makefile       | 2 +-
 src/mac/macfile_gen.pl | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/mac/Makefile b/src/mac/Makefile
index de0ac8bb2..d8b708937 100644
--- a/src/mac/Makefile
+++ b/src/mac/Makefile
@@ -106,7 +106,7 @@ profile-library-implementation-version				= 0
 list-generation-script-folder = "{root-folder}mac:"
 list-generation-script = "{list-generation-script-folder}macfile_gen.pl"
 list-generation-script-root = ".."
-list-generation-script-prefix = ":"
+list-generation-script-prefix = "{root-folder}"
 
 all-files-list									= {root-folder}"All files.list"
 all-sources-list								= {root-folder}"All sources.list"
diff --git a/src/mac/macfile_gen.pl b/src/mac/macfile_gen.pl
index d8b694161..594aca3c1 100644
--- a/src/mac/macfile_gen.pl
+++ b/src/mac/macfile_gen.pl
@@ -46,7 +46,10 @@ if ($action ne "all-files") {
 } else {
 
 	@sourceList = &make_macfile_maclist (&make_macfile_list ());
-	@sourceList = map { $prefix . $_;} @sourceList;
+	foreach (@sourcelist) {
+	        $_ =~ s/^:/$prefix/;
+	}
+#	@sourceList = map { $prefix . $_;} @sourceList;
 	
 }
 
-- 
2.26.2