From c39ce7aa14f2424c874cc58b5ce5249a05fabe66 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 22 Jan 2004 20:24:49 +0000
Subject: perl_checker fixes

---
 pxe_wizard/Pxe.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'pxe_wizard')

diff --git a/pxe_wizard/Pxe.pm b/pxe_wizard/Pxe.pm
index 38578639..08ee8fce 100644
--- a/pxe_wizard/Pxe.pm
+++ b/pxe_wizard/Pxe.pm
@@ -243,7 +243,7 @@ $o->{pages} = {
 			     name => N("Congratulations"),
 			     data => [ { label => N("The wizard successfully add a PXE boot image.") } ],
 			     post => sub {
-			       @list_menu =();
+			       @list_menu = ();
 			       foreach (cat_($PXEDEFAULT)) {
 				 my ($ent) = /# TAG: (\w+)_BEGIN/;
 				 ! $ent or push @list_menu,$ent;
@@ -255,7 +255,7 @@ $o->{pages} = {
 			     name => N("Congratulations"),
 			     data => [ { label => N("The wizard successfully remove a PXE boot image.") } ],
 			     post => sub {
-			       @list_menu =();
+			       @list_menu = ();
 			       foreach (cat_($PXEDEFAULT)) {
 				 my ($ent) = /# TAG: (\w+)_BEGIN/;
 				 ! $ent or push @list_menu,$ent;
@@ -352,7 +352,7 @@ sub add_img {
 sub remove_in_menu {
   my ($NAME) = @_;
   my $conf = cat_($PXEDEFAULT) . "#EndOfFile";
-  my ($begin, $NAME_bloc, $end) = $conf =~ /(.*?)(# TAG: ${NAME}_BEGIN.*?# TAG: ${NAME}_END)\n(.*)#EndOfFile/s or die "unable to find Menu entry section";
+  my ($begin, $_NAME_bloc, $end) = $conf =~ /(.*?)(# TAG: ${NAME}_BEGIN.*?# TAG: ${NAME}_END)\n(.*)#EndOfFile/s or die "unable to find Menu entry section";
   output($PXEDEFAULT, $begin, $end);
 }
 
@@ -446,7 +446,7 @@ sub read_option {
   system("mount $IMGPATH/$IMG.img $mount -o loop 2>/dev/null");
   my $line = cat_("$mount/syslinux.cfg");
   $o->{var}{i} = "$IMGPATH/$IMG.img";
-  ($o->{var}{METHOD}, $o->{var}{ETH}, $o->{var}{IP}, $o->{var}{DIR}, $o->{var}{RAM}, $o->{var}{VGA}, $o->{var}{ACPI}, $o->{var}{APIC}) = $line =~ /method:(nfs|http),interface:(eth0|eth1|eth2),network:dhcp,server:(.*?),directory:(.*?) ramdisk_size=(.*?) root=\/dev\/ram3 rw vga=(.*?)acpi=(ht|force|off)\s(apic|noapic)/;
+  ($o->{var}{METHOD}, $o->{var}{ETH}, $o->{var}{IP}, $o->{var}{DIR}, $o->{var}{RAM}, $o->{var}{VGA}, $o->{var}{ACPI}, $o->{var}{APIC}) = $line =~ m!/method:(nfs|http),interface:(eth0|eth1|eth2),network:dhcp,server:(.*?),directory:(.*?) ramdisk_size=(.*?) root=/dev/ram3 rw vga=(.*?)acpi=(ht|force|off)\s(apic|noapic)!;
   system("umount $mount");
   if (-e $mount) {
     rm_rf($mount);
@@ -508,13 +508,13 @@ EOF
   enable_tftps();
   pxe_conf();
   tftp_blksize('N');
-  map { system("service $_ restart"); $_ } qw(xinetd pxe);
+  system("service $_ restart") foreach qw(xinetd pxe);
   undef $w;
 }
 
 
 sub new {
-    my ($class, $conf) = @_;
+    my ($class) = @_;
     bless {
             o   => $o,
 	   }, $class;
-- 
cgit v1.2.1