equal
deleted
inserted
replaced
223 { |
223 { |
224 my $normalized = lc($bldinf); |
224 my $normalized = lc($bldinf); |
225 $normalized =~ s,^[A-Za-z]:,,; |
225 $normalized =~ s,^[A-Za-z]:,,; |
226 $normalized =~ s,[\\],/,g; |
226 $normalized =~ s,[\\],/,g; |
227 |
227 |
228 $normalized =~ m,^/sf|sftools/([^/]+)/([^/]+)/,; |
228 $normalized =~ m,^/sf/([^/]+)/([^/]+)/,; |
229 my $layer = $1; |
229 my $layer = $1; |
230 my $package = $2; |
230 my $package = $2; |
231 |
231 |
232 mkdir("$::releaseablesdir/$layer"); |
232 mkdir("$::releaseablesdir/$layer"); |
233 mkdir("$::releaseablesdir/$layer/$package"); |
233 mkdir("$::releaseablesdir/$layer/$package"); |