File tree 1 file changed +17
-0
lines changed
1 file changed +17
-0
lines changed Original file line number Diff line number Diff line change 25
25
26
26
-d " $ENV {UNIFY}/perl" or
27
27
mkdir " $ENV {UNIFY}/perl" , 0775;
28
+ -d " $ENV {UNIFY}/perl/man" or
29
+ mkdir " $ENV {UNIFY}/perl/man" , 0775;
30
+ -d " $ENV {UNIFY}/perl/man/man3" or
31
+ mkdir " $ENV {UNIFY}/perl/man/man3" , 0775;
28
32
-d " $ENV {UNIFY}/perl/$version " or
29
33
mkdir " $ENV {UNIFY}/perl/$version " , 0775;
30
34
-d " $ENV {UNIFY}/perl/$version /$arch " or
54
58
copy (" $src /blib/arch/$f " , " $dst /$f " );
55
59
$f =~ m /\. (sl|so|al|pm|bs)$ / and chmod 0755, " $dst /$f " ;
56
60
}
61
+ $dst = " $ENV {UNIFY}/perl/man/man3" ;
62
+ foreach my $f (sort @{$tar {man3 }}) {
63
+ $f =~ m { (?:^|/)\. exists$} and next ;
64
+ my $s = " $src /blib/man3/$f " ;
65
+ if (-d $s ) {
66
+ print STDERR " mkdir $dst /$f ...\n " ;
67
+ mkdir " $dst /$f " , 0775;
68
+ next ;
69
+ }
70
+ print STDERR " man3 cp man3/$f \n " ;
71
+ copy (" $src /blib/man3/$f " , " $dst /$f " );
72
+ chmod 0644, " $dst /$f " ;
73
+ }
You can’t perform that action at this time.
0 commit comments