Perl-Dist-WiX

changeset 1061:9438655c2750

And case insensitivity is now falsely making the check fail.
author Curtis Jewell <perl@curtisjewell.name>
date Wed Jun 15 22:59:23 2011 -0600 (2011-06-15)
parents a1d077cb6961
children 279135cd7736
files lib/Perl/Dist/WiX.pm
line diff
     1.1 --- a/lib/Perl/Dist/WiX.pm	Wed Jun 15 06:32:01 2011 -0600
     1.2 +++ b/lib/Perl/Dist/WiX.pm	Wed Jun 15 22:59:23 2011 -0600
     1.3 @@ -3157,10 +3157,17 @@
     1.4  	}
     1.5  
     1.6  	if ( $not_in_zip->count() ) {
     1.7 -		$self->trace_line( 0, "Files list:\n" );
     1.8 -		$self->trace_line( 0, $not_in_zip->as_string() . "\n" );
     1.9 -		PDWiX->throw( 'These files should be installed by a ZIP file, but '
    1.10 -			  . 'will not be.' );
    1.11 +		# Case-insensitivity hurts us here.
    1.12 +		my @files_list = $not_in_zip->files();
    1.13 +
    1.14 +		my @files = grep { -f $_ } @files_list;
    1.15 +		if ( scalar @files ) {
    1.16 +			my $files = join "\n", @files;
    1.17 +			
    1.18 +			$self->trace_line( 0, "Files list:\n$files\n" );
    1.19 +			PDWiX->throw( 'These files should be installed by a ZIP file, '
    1.20 +				  . 'but will not be.' );
    1.21 +		}
    1.22  	}
    1.23  
    1.24  	return 1;