Perl-Dist-WiX

changeset 1054:2569a48f8b93

A little more tracing.
author Curtis Jewell <perl@curtisjewell.name>
date Sun Jun 12 18:12:56 2011 -0600 (2011-06-12)
parents c119e1860e96
children 6027d640fe54
files lib/Perl/Dist/WiX/Role/NonURLAsset.pm
line diff
     1.1 --- a/lib/Perl/Dist/WiX/Role/NonURLAsset.pm	Sun Jun 12 18:12:40 2011 -0600
     1.2 +++ b/lib/Perl/Dist/WiX/Role/NonURLAsset.pm	Sun Jun 12 18:12:56 2011 -0600
     1.3 @@ -214,12 +214,14 @@
     1.4    DIR:
     1.5  	foreach my $dir (@dirs) {
     1.6  		$packlist = catfile( $dir, '.packlist' );
     1.7 +		$self->_trace_line(4, "Checking for $packlist\n");
     1.8  		last DIR if -r $packlist;
     1.9  	}
    1.10  
    1.11  	my $filelist;
    1.12  	if ( -r $packlist ) {
    1.13  
    1.14 +		$self->_trace_line(3, "$packlist was found\n");		
    1.15  		# Load a filelist object from the packlist if one exists.
    1.16  		$filelist =
    1.17  		  File::List::Object->new()->load_file($packlist)