view release on metacpan or  search on metacpan

lib/Alien/Build/Plugin/Cleanse/BuildDir.pm  view on Meta::CPAN

        }

        #  a spot of paranoia        
        #return if $build_dir !~ /\b_alien\b/;

        $build->log ("Going to delete $build_dir\n");
        $build->log ("Currently in " . getcwd() . "\n");

        my $curdir = getcwd();
        if (path($curdir)->subsumes ($build_dir)) {
            $build->log ("Going to parent of build directory\n");
            chdir "$build_dir/..";
        }
        
        my $count = eval {
            remove_tree ($build_dir, {
                safe => 1,
                #verbose => 1,
            });
        } || 0;
        $build->log ("Deleted $count items\n");