ossp-pkg/shiela/shiela.pl 1.21 -> 1.22
--- 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;
|
|
