Perl-Dist-WiX

changeset 1072:12af52f3fea4

Added the parameters to the wrong routine.
author Curtis Jewell <perl@curtisjewell.name>
date Sun Jun 26 20:46:39 2011 -0600 (2011-06-26)
parents 42cb18facbe6
children 465ddd293283
files lib/Perl/Dist/WiX/Asset/Distribution.pm
line diff
     1.1 --- a/lib/Perl/Dist/WiX/Asset/Distribution.pm	Sun Jun 26 02:27:25 2011 -0600
     1.2 +++ b/lib/Perl/Dist/WiX/Asset/Distribution.pm	Sun Jun 26 20:46:39 2011 -0600
     1.3 @@ -399,7 +399,7 @@
     1.4  	my $module = $self->get_module_name();
     1.5  	my $filelist_sub;
     1.6  
     1.7 -	if ( not $self->_get_packlist($module, $name) ) {
     1.8 +	if ( not $self->_get_packlist() ) {
     1.9  		$filelist_sub =
    1.10  		  File::List::Object->new->readdir( $self->_dir('perl') );
    1.11  		$self->_trace_line( 5,
    1.12 @@ -495,7 +495,7 @@
    1.13  	# Making final filelist.
    1.14  	my $filelist;
    1.15  	if ( $self->_get_packlist() ) {
    1.16 -		$filelist = $self->_search_packlist($module);
    1.17 +		$filelist = $self->_search_packlist($module, $name);
    1.18  	} else {
    1.19  		$filelist =
    1.20  		  File::List::Object->new()->readdir( $self->_dir('perl') );