Perl-Dist-WiX

changeset 1046:196bf48f8a1a

Make the output files easily sortable.
author Curtis Jewell <perl@curtisjewell.name>
date Mon Jun 06 06:32:21 2011 -0600 (2011-06-06)
parents 7150ac7681d9
children 7af86c340b19
files lib/Perl/Dist/WiX/Asset/Module.pm
line diff
     1.1 --- a/lib/Perl/Dist/WiX/Asset/Module.pm	Mon Jun 06 01:09:54 2011 -0600
     1.2 +++ b/lib/Perl/Dist/WiX/Asset/Module.pm	Mon Jun 06 06:32:21 2011 -0600
     1.3 @@ -248,9 +248,10 @@
     1.4  	};
     1.5  	my \$error = \$@;
     1.6  	my \$id = \$module->distribution()->pretty_id();
     1.7 +	my \$time = time;
     1.8  	my \$module_id = \$name;
     1.9  	\$module_id =~ s{::}{_}gmsx;
    1.10 -	my \$filename = catfile('$output_dir', "\$module_id.output.txt");
    1.11 +	my \$filename = catfile('$output_dir', "\$time.\$module_id.output.txt");
    1.12  	write_file(\$filename, \$output);
    1.13  	die "Installation of \$name failed: \$error\\n" if \$error;
    1.14