summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
e8e64c0)
Perl 5.20 helpfully warned about these where 5.14 didn't bother.
ARG: for (;;) {
last ARG unless @$args;
ARG: for (;;) {
last ARG unless @$args;
+ my $arg = shift @$args;
if ($arg eq "+") { last ARG; }
elsif ($arg =~ /^\+/) {
$server = substr $arg, 1;
if ($arg eq "+") { last ARG; }
elsif ($arg =~ /^\+/) {
$server = substr $arg, 1;
for my $s (sort keys %S) {
inform "Server `$s' parameters...";
for my $s (sort keys %S) {
inform "Server `$s' parameters...";
- for my $p (sort keys $S{$s}) { inform_param $p, $S{$s}{$p}; }
+ for my $p (sort keys %{$S{$s}}) { inform_param $p, $S{$s}{$p}; }