Commits

shlomif_rsip committed f2cd032

Avoid predeclaring $parm.

  • Participants
  • Parent commits 6b2c27b

Comments (0)

Files changed (1)

File config-inifiles/lib/Config/IniFiles.pm

     no strict 'refs';
     my ($self, $fh, $delta) = @_;
 
-    my($parm, @cmts);
+    my (@cmts);
     my $ors = $self->{line_ends} || $\ || "\n"; # $\ is normally unset, but use input by default
     my $notfirst = 0;
     local $_;
         next SECT unless ref $self->{v}{$sect} eq 'HASH';
 
         PARM:
-        foreach $parm (@{$self->{$delta ? "myparms" : "parms"}{$sect}}) {
+        foreach my $parm (@{$self->{$delta ? "myparms" : "parms"}{$sect}}) {
             if (!defined $self->{v}{$sect}{$parm}) {
                 if ($delta) {
                     print {$fh} "$self->{comment_char} $parm is deleted$ors";