| … | |
… | |
| 160 | if (-d $_) { |
160 | if (-d $_) { |
| 161 | system "rsync", "-aR", $_, "$ENV{DIST}/pm/."; |
161 | system "rsync", "-aR", $_, "$ENV{DIST}/pm/."; |
| 162 | } else { |
162 | } else { |
| 163 | File::Path::mkpath "$ENV{OSDIST}/pm/" . dirname $_; |
163 | File::Path::mkpath "$ENV{OSDIST}/pm/" . dirname $_; |
| 164 | File::Copy::syscopy "$_", "$ENV{OSDIST}/pm/$_" |
164 | File::Copy::syscopy "$_", "$ENV{OSDIST}/pm/$_" |
| 165 | or die "$ENV{OSDIST}/pm/$_: $!"; |
165 | or die "$lib/$_ => $ENV{OSDIST}/pm/$_: $!"; |
| 166 | |
166 | |
| 167 | if (s/\.pm$//) { |
167 | if (s/\.pm$//) { |
| 168 | $auto = "auto/$_"; |
168 | $auto = "auto/$_"; |
| 169 | |
169 | |
| 170 | for my $glob ("*.'$SO'", "autosplit.ix", "*.al") { |
170 | for my $glob ("*.'$SO'", "autosplit.ix", "*.al") { |
