From d37a5bb1d073c43d40a5ed585dfff03d23fd439d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 20 Oct 2003 16:57:31 +0000
Subject: misc perl_checker cleanups

---
 perl-install/standalone/drakTermServ | 8 ++++----
 perl-install/standalone/drakperm     | 4 ++--
 perl-install/standalone/drakpxe      | 4 ++--
 3 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ
index d7c9bc6da..04885cec8 100755
--- a/perl-install/standalone/drakTermServ
+++ b/perl-install/standalone/drakTermServ
@@ -1152,14 +1152,14 @@ sub write_dhcpd_config {
 	print FHANDLE "#dhcpd.conf - generated by drakTermServ\n\n";
 	print FHANDLE "ddns-update-style none;\n\n";
 	print FHANDLE "# Long leases (48 hours)\ndefault-lease-time 172800;\nmax-lease-time 172800;\n\n";
-	print FHANDLE "# Include Etherboot definitions and defaults\ninclude \"/etc/dhcpd.conf.etherboot.include\";\n\n";
+	print FHANDLE qq(# Include Etherboot definitions and defaults\ninclude "/etc/dhcpd.conf.etherboot.include";\n\n);
 	print FHANDLE "# Network-specific section\n\n";
 	
 	print FHANDLE "subnet $subnet netmask $netmask {\n";
 	print FHANDLE "\toption routers $routers;\n" if $routers;
 	print FHANDLE "\toption subnet-mask $subnet_mask;\n" if $subnet_mask;
 	print FHANDLE "\toption broadcast-address $broadcast;\n" if $broadcast;
-	print FHANDLE "\toption domain-name \"$domain\";\n" if $domain;
+	print FHANDLE qq(\toption domain-name "$domain";\n) if $domain;
 	
 	my $pool_string = "\trange dynamic-bootp " . $pool_start . " " . $pool_end . ";\n" if $pool_start && $pool_end;
 	print FHANDLE $pool_string if $pool_string;
@@ -1172,7 +1172,7 @@ sub write_dhcpd_config {
 
 	print FHANDLE "}\n\n";
 	
-	print FHANDLE "# Include client machine configurations\ninclude \"/etc/dhcpd.conf.etherboot.clients\";\n";
+	print FHANDLE qq(# Include client machine configurations\ninclude "/etc/dhcpd.conf.etherboot.clients";\n);
 	close FHANDLE	
 }
 
@@ -1571,7 +1571,7 @@ sub format_client_entry {
 	$entry .= "\thardware ethernet\t$ts_clients{$client}{hardware};\n";
 	$entry .= "\tfixed-address\t\t$ts_clients{$client}{address};\n";
 	$entry .= "\t#type\t\t\t$ts_clients{$client}{type};\n" if $ts_clients{$client}{type};
-	$entry .= "\tfilename\t\t\"$ts_clients{$client}{filename}\";\n" if $ts_clients{$client}{filename};
+	$entry .= qq(\tfilename\t\t"$ts_clients{$client}{filename}";\n) if $ts_clients{$client}{filename};
 	$entry .= "\t#hdw_config\t\t$ts_clients{$client}{hdw_config};\n" if $ts_clients{$client}{hdw_config};
 	$entry .= "}\n";
 	if ($ts_clients{$client}{type} eq "thin") {
diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index 0b1f09b05..56ed69920 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -194,7 +194,7 @@ sub save_perm() {
     my $val;
     if ($modified) {
         local *F;
-        open F, '>' . $perm_files{editable} or die("Impossible to process \"", $perm_files{editable}, "\"");
+        open F, '>' . $perm_files{editable} or die(qq(Impossible to process "$perm_files{editable}"));
         $model->foreach(sub {
                             my ($model, $_path, $iter) = @_;
                             return 0 if $model->get($iter, 0);
@@ -224,7 +224,7 @@ sub load_perms() {
             } elsif (m/^(\S+)\s+current?\s+(\d+)/) {
                 push @rules, { @editable, path => $1, user => 'current', group => '', perms => $2, index => $index };
             } else {
-                warn "unparsable \"$_\"line";
+                warn qq(unparsable "$_"line);
             }
             $index++;
         }
diff --git a/perl-install/standalone/drakpxe b/perl-install/standalone/drakpxe
index 0b93a2f73..4ceb492c7 100755
--- a/perl-install/standalone/drakpxe
+++ b/perl-install/standalone/drakpxe
@@ -438,8 +438,8 @@ shared-network "mynetwork" {
 	print F "    pool {
        range $_->{start_ip} $_->{end_ip};
 ";
-	print F "       allow members of \"$_\";\n" foreach keys %{$_->{allow}};
-	print F "       deny members of \"$_\";\n" foreach keys %{$_->{deny}};
+	print F qq(       allow members of "$_";\n) foreach keys %{$_->{allow}};
+	print F qq(       deny members of $_";\n) foreach keys %{$_->{deny}};
 	print F "    }\n";
     }
 print F qq(
-- 
cgit v1.2.1