More fixed to make perl script run cirrectly from any root

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@11552 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/mac/macfile_gen.pl b/src/mac/macfile_gen.pl
index 594aca3c115ca6a04a189a36d427b170141b1281..6bddb238776d478835f3e1ea9758a6a648bba41f 100644 (file)
--- a/src/mac/macfile_gen.pl
+++ b/src/mac/macfile_gen.pl
@@ -46,7 +46,7 @@ if ($action ne "all-files") {
 } else {
 
        @sourceList = &make_macfile_maclist (&make_macfile_list ());
-       foreach (@sourcelist) {
+       foreach (@sourceList) {
                $_ =~ s/^:/$prefix/;
        }
 #      @sourceList = map { $prefix . $_;} @sourceList;