summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-10-20 16:57:31 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-10-20 16:57:31 +0000
commitd37a5bb1d073c43d40a5ed585dfff03d23fd439d (patch)
tree6ede0ef65447380ef19a31be63234a4e8ee78ed9
parenta64d595bfe7eaf661ac339e815a1a978b1ee028e (diff)
downloaddrakx-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.tar
drakx-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.tar.gz
drakx-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.tar.bz2
drakx-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.tar.xz
drakx-d37a5bb1d073c43d40a5ed585dfff03d23fd439d.zip
misc perl_checker cleanups
-rwxr-xr-xperl-install/standalone/drakTermServ8
-rwxr-xr-xperl-install/standalone/drakperm4
-rwxr-xr-xperl-install/standalone/drakpxe4
3 files changed, 8 insertions, 8 deletions
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(