equal
deleted
inserted
replaced
55 # For each package in CSV... |
55 # For each package in CSV... |
56 foreach my $package (@packages) |
56 foreach my $package (@packages) |
57 { |
57 { |
58 warn "Warning: Package $package->{dst} does not appear on the local system\n" unless -d $package->{dst}; |
58 warn "Warning: Package $package->{dst} does not appear on the local system\n" unless -d $package->{dst}; |
59 $package->{dst} =~ s{^/}{}g; |
59 $package->{dst} =~ s{^/}{}g; |
60 if ($package->{source} =~ m{/(sfl|oss)/sf/([^/]+)/([^/]+)}) |
60 if ($package->{source} =~ m{/(sfl|oss)/(MCL|FCL)/sf/([^/]+)/([^/]+)}) |
61 { |
61 { |
62 push @{$zipConfig->{config}->{config}->{src}->{config}->{$1}->{config}}, |
62 push @{$zipConfig->{config}->{config}->{src}->{config}->{$1}->{config}}, |
63 { |
63 { |
64 set => |
64 set => |
65 [ |
65 [ |
66 { |
66 { |
67 name => "name", |
67 name => "name", |
68 value=> "src_$1_$2_$3", |
68 value=> "src_$1_$3_$4", |
69 }, |
69 }, |
70 { |
70 { |
71 name => "include", |
71 name => "include", |
72 value => "$package->{dst}/**", |
72 value => "$package->{dst}/**", |
73 }, |
73 }, |