From 81a42ed35e61de32d82ac0e8c406841d5f37d53f Mon Sep 17 00:00:00 2001 From: Martin Whitaker Date: Sat, 13 Jan 2018 17:41:42 +0000 Subject: Reduce perl_checker noise. --- drakclassic | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'drakclassic') diff --git a/drakclassic b/drakclassic index a0b9c0a..969d061 100755 --- a/drakclassic +++ b/drakclassic @@ -52,11 +52,13 @@ $::force = 0; sub clean { my ($build) = @_; - if (-e $build->get_build_dir) { - run_('rm', '-rf', $build->get_build_dir); + my $build_dir = $build->get_build_dir; + if (-e $build_dir) { + run_('rm', '-rf', $build_dir); } - if (-e $build->get_chroot_dir) { - run_as_root('rm', '-rf', $build->get_chroot_dir); + my $chroot_dir = $build->get_chroot_dir; + if (-e $chroot_dir) { + run_as_root('rm', '-rf', $chroot_dir); } } -- cgit v1.2.1