Perl-Dist-WiX

changeset 1067:e187bd22e1aa

Switch it back - that:

1) was the wrong check, and
2) we need to handle case-sensitivity better, somehow.
author Curtis Jewell <perl@curtisjewell.name>
date Tue Jun 21 23:20:50 2011 -0600 (2011-06-21)
parents 21b89425069d
children a006394b0189
files lib/Perl/Dist/WiX.pm
line diff
     1.1 --- a/lib/Perl/Dist/WiX.pm	Tue Jun 21 23:16:21 2011 -0600
     1.2 +++ b/lib/Perl/Dist/WiX.pm	Tue Jun 21 23:20:50 2011 -0600
     1.3 @@ -3149,6 +3149,9 @@
     1.4  	  File::List::Object->clone($files_msi)->subtract($files_zip);
     1.5  
     1.6  	if ( $not_in_msi->count() ) {
     1.7 +		# We do have files being caught by this that are only there
     1.8 +		# for case-sensitivity reasons. How to deal?
     1.9 +	
    1.10  		$self->trace_line( 0, "Files list:\n" );
    1.11  		$self->trace_line( 0, $not_in_msi->as_string() . "\n" );
    1.12  		PDWiX->throw(
    1.13 @@ -3160,7 +3163,7 @@
    1.14  		# Case-insensitivity hurts us here.
    1.15  		my @files_list = $not_in_zip->files();
    1.16  
    1.17 -		my @files = grep { ! -f $_ } @files_list;
    1.18 +		my @files = grep { -f $_ } @files_list;
    1.19  		if ( scalar @files ) {
    1.20  			my $files = join "\n", @files;
    1.21