Perl-Dist-WiX

changeset 1066:21b89425069d

Switch the sense of the check - it's looking for the wrong thing.
author Curtis Jewell <perl@curtisjewell.name>
date Tue Jun 21 23:16:21 2011 -0600 (2011-06-21)
parents 17532030e7f4
children e187bd22e1aa
files lib/Perl/Dist/WiX.pm
line diff
     1.1 --- a/lib/Perl/Dist/WiX.pm	Tue Jun 21 00:12:56 2011 -0600
     1.2 +++ b/lib/Perl/Dist/WiX.pm	Tue Jun 21 23:16:21 2011 -0600
     1.3 @@ -3160,7 +3160,7 @@
     1.4  		# Case-insensitivity hurts us here.
     1.5  		my @files_list = $not_in_zip->files();
     1.6  
     1.7 -		my @files = grep { -f $_ } @files_list;
     1.8 +		my @files = grep { ! -f $_ } @files_list;
     1.9  		if ( scalar @files ) {
    1.10  			my $files = join "\n", @files;
    1.11