···

       
29
       
29
       
 
       
# For each activated package, determine what symlinks to create.

     

       
30
       
30
       
 
       


     

       
31
       
31
       
 
       
my %symlinks;

     

       
32
       
32
       
-
       
$symlinks{""} = ["", 0]; # create root directory

     

       
33
       
32
       
 
       


     

       
34
       
34
       
-
       
my %priorities;

     

       
33
       
33
       
+
       
for my $p (@pathsToLink) {

     

       
34
       
34
       
+
       
    $p = "" if $p eq "/";

     

       
35
       
35
       
+
       
    $symlinks{$p} = ["", 0];

     

       
36
       
36
       
+
       
}

     

       
35
       
37
       
 
       


     

       
36
       
38
       
 
       
sub findFiles;

     

       
37
       
39