Index: ossp-pkg/shiela/ChangeLog
RCS File: /v/ossp/cvs/ossp-pkg/shiela/ChangeLog,v
rcsdiff -q -kk '-r1.16' '-r1.17' -u '/v/ossp/cvs/ossp-pkg/shiela/ChangeLog,v' 2>/dev/null
--- ChangeLog	2002/12/21 11:00:17	1.16
+++ ChangeLog	2002/12/21 11:24:17	1.17
@@ -11,6 +11,10 @@
 
   Changes between 0.9.2 and 0.9.3 (19-Aug-2002 to 21-Dec-2002):
 
+   *) Fix incorrect use (and hence producing a warning for uninitialized
+      variable) of variables in the writing of history files.
+      [Ralf S. Engelschall]
+
    *) Finally really use the "Environment" configuration section to find
       "cvs" and "sendmail" directly and add a "Program" sub-command to it
       for easier extension of the "Environment" section in the future.
Index: ossp-pkg/shiela/shiela.pl
RCS File: /v/ossp/cvs/ossp-pkg/shiela/shiela.pl,v
rcsdiff -q -kk '-r1.21' '-r1.22' -u '/v/ossp/cvs/ossp-pkg/shiela/shiela.pl,v' 2>/dev/null
--- shiela.pl	2002/12/21 11:00:17	1.21
+++ shiela.pl	2002/12/21 11:24:17	1.22
@@ -841,8 +841,7 @@
 sub history_save {
     my ($PA, $RT, $CF, $IN) = @_;
     my $O = '';
-    my $file;
-    foreach $file (keys(%{$IN->{file}})) {
+    foreach my $file (keys(%{$IN->{file}})) {
         my $e = $IN->{file}->{$file};
         $O .= $IN->{handle};
         $O .= ",$file";
@@ -856,7 +855,7 @@
         $O .= "\n";
     }
     my $io = new IO::File ">>".$RT->{historydb}
-         || die "cannot store information to history db `$file'";
+         || die "cannot store information to history db `$RT->{historydb}'";
     $io->print($O);
     $io->close;
     return;