Perl-Dist-WiX

changeset 1028:c8a45351d121

Import remove_tree in ::Util::Machine.
author Curtis Jewell <perl@curtisjewell.name>
date Sat Jun 04 06:52:18 2011 -0600 (2011-06-04)
parents 20f6736e2e33
children 2a54a3dcec34
files lib/Perl/Dist/WiX/Util/Machine.pm
line diff
     1.1 --- a/lib/Perl/Dist/WiX/Util/Machine.pm	Sat Jun 04 06:03:21 2011 -0600
     1.2 +++ b/lib/Perl/Dist/WiX/Util/Machine.pm	Sat Jun 04 06:52:18 2011 -0600
     1.3 @@ -68,6 +68,7 @@
     1.4  use English                      qw( -no_match_vars );
     1.5  use File::Copy                   qw();
     1.6  use File::Copy::Recursive        qw();
     1.7 +use File::Path              2.08 qw( remove_tree );
     1.8  use File::Spec::Functions        qw( catdir );
     1.9  use File::Remove                 qw();
    1.10  use File::HomeDir                qw();
    1.11 @@ -567,7 +568,7 @@
    1.12  		# Flush out the image dir for the next run
    1.13  		my $err;
    1.14  		my $dir = $dist->image_dir();
    1.15 -		File::Path::remove_tree("$dir", {
    1.16 +		remove_tree("$dir", {
    1.17  			keep_root => 1,
    1.18  			error     => \$err, 
    1.19  		});