From 6ac2d9413cd7d4e81f738d77a0047d1b227e61a0 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 21 Jun 2005 09:30:23 +0000 Subject: perl_checker/suxiness fixes --- perl-install/network/pxe.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/network/pxe.pm') diff --git a/perl-install/network/pxe.pm b/perl-install/network/pxe.pm index 7c57b3ae8..a75aa18eb 100644 --- a/perl-install/network/pxe.pm +++ b/perl-install/network/pxe.pm @@ -249,15 +249,15 @@ sub find_next_profile_name { sub add_empty_profile { my ($profiles_conf) = @_; my $profile = find_next_profile_name($profiles_conf, "profile_"); - $profiles_conf->{profiles}{boot}{$profile} = 1 ; + $profiles_conf->{profiles}{boot}{$profile} = 1; } sub copy_profile_for_type { my ($profile, $clone, $type) = @_; my ($pxe, $help) = get_pxelinux_profile_path($profile, $type); my ($clone_pxe, $clone_help) = get_pxelinux_profile_path($clone, $type); - -r $pxe && cp_f($pxe, $clone_pxe); - -r $help && cp_f($help, $clone_help); + -r $pxe and cp_f($pxe, $clone_pxe); + -r $help and cp_f($help, $clone_help); } sub clone_profile { -- cgit v1.2.1