perl_checker recommendation

1 files changed, 7 insertions, 7 deletions

diff --git a/pxe_wizard/Pxe.pm b/pxe_wizard/Pxe.pm
index 87d127bc..42f761d8 100644
--- a/pxe_wizard/Pxe.pm
+++ b/pxe_wizard/Pxe.pm
@@ -69,7 +69,7 @@ my $o = {
 	 needed_rpm => [ 'pxe', 'tftp-server', 'xinetd' ],
 	 init => sub {
 	   if (member($DOMAINNAME, qw(localdomain (none)))) {
-             return (0, N("You need to readjust your domainname. For a DNS server you need a correct domainname, not egal to localdomain or none. Launch drakconnect to adjust it."))
+             return 0, N("You need to readjust your domainname. For a DNS server you need a correct domainname, not egal to localdomain or none. Launch drakconnect to adjust it.")
            }
            1
 	 },
@@ -139,7 +139,7 @@ $o->{pages} = {
 			  next => 'summaryadd',
 			 },
 	       removeimg => {
-			     name => N("Remove a boot image"). "\n\n" . N("Choose PXE boot image you want to remove from PXE server."),
+			     name => N("Remove a boot image") . "\n\n" . N("Choose PXE boot image you want to remove from PXE server."),
 			     data => [
 				      { label => N("Boot image to remove:"), val => \$o->{var}{IMGTOREMOVE}, fixed_list => \@list_menu },
 				     ],
@@ -189,8 +189,8 @@ $o->{pages} = {
 				 data => [
 					  { label => N("Tftp directory:"), fixed_val => \$TFTPDIR },
 					  { label => N("Boot image path:"), fixed_val => \$IMGPATH },
-					  { label => N("PXE \'default\' file:"), fixed_val => \$PXEDEFAULT },
-					  { label => N("PXE \'help\' file:"), fixed_val => \$PXEHELP },
+					  { label => N("PXE 'default' file:"), fixed_val => \$PXEDEFAULT },
+					  { label => N("PXE 'help' file:"), fixed_val => \$PXEHELP },
 					 ],
 				 post => \&do_it_pxe,
 				 next => 'endserver',
@@ -299,7 +299,7 @@ sub crea_wdir {
 sub add_in_default {
   my ($NAME) = @_;
   if (!any { /${NAME}_BEGIN/ } cat_($PXEDEFAULT)) {
-    append_to_file($PXEDEFAULT ,<<EOF);
+    append_to_file($PXEDEFAULT, <<EOF);
 # TAG: ${NAME}_BEGIN
 label $NAME
       KERNEL memdisk
@@ -312,7 +312,7 @@ EOF
 # add entry in Help.txt of  PXE
 sub add_in_help {
   my ($NAME, $DESCR) = @_;
-  append_to_file($PXEHELP ,<<EOF);
+  append_to_file($PXEHELP, <<EOF);
 $NAME : $DESCR
 EOF
 }
@@ -335,7 +335,7 @@ sub remove_in_menu {
 sub list_menu {
   my @list_menu;
   foreach (cat_($PXEDEFAULT)) {
-    my ($ent) = /\# TAG: (\w+)_BEGIN/;
+    my ($ent) = /# TAG: (\w+)_BEGIN/;
     ! $ent or push @list_menu,$ent; #print "$ent\n";
   }
   @list_menu;