msiglobal.pm (677600b0) msiglobal.pm (d62abd1a)
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 155 unchanged lines hidden (view full) ---

164
165 # Sort files on the sequence number.
166 my @sorted_files = sort {$a->{'sequencenumber'} <=> $b->{'sequencenumber'}} @$filesref;
167
168 my @ddffile = ();
169 write_ddf_file_header(\@ddffile, $cabinetfile, $installdir);
170 foreach my $onefile (@sorted_files)
171 {
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 155 unchanged lines hidden (view full) ---

164
165 # Sort files on the sequence number.
166 my @sorted_files = sort {$a->{'sequencenumber'} <=> $b->{'sequencenumber'}} @$filesref;
167
168 my @ddffile = ();
169 write_ddf_file_header(\@ddffile, $cabinetfile, $installdir);
170 foreach my $onefile (@sorted_files)
171 {
172 my $styles = $onefile->{'Styles'} // "";
172 my $styles = $onefile->{'Styles'};
173 $styles = "" unless defined $styles;
173 if ($styles =~ /\bDONT_PACK\b/)
174 {
175 $installer::logger::Lang->printf(" excluding '%s' from ddf\n", $onefile->{'uniquename'});
176 }
177
178 my $uniquename = $onefile->{'uniquename'};
179 my $sourcepath = $onefile->{'sourcepath'};
180 if ( $^O =~ /cygwin/i )

--- 1619 unchanged lines hidden --- 		174 if ($styles =~ /\bDONT_PACK\b/)
175 {
176 $installer::logger::Lang->printf(" excluding '%s' from ddf\n", $onefile->{'uniquename'});
177 }
178
179 my $uniquename = $onefile->{'uniquename'};
180 my $sourcepath = $onefile->{'sourcepath'};
181 if ( $^O =~ /cygwin/i )

--- 1619 unchanged lines hidden ---