2002-08-30 Carlos Garnacho Parro <garparr@teleline.es>GST_0_20_0

	* boot-lilo.pl.in: configuration store bug solved

1 files changed, 5 insertions, 5 deletions

diff --git a/boot-lilo.pl.in b/boot-lilo.pl.in
index 5e8f383..951fae4 100644
--- a/boot-lilo.pl.in
+++ b/boot-lilo.pl.in
@@ -419,7 +419,7 @@ sub xst_boot_lilo_edit_entry
 {
   my ($entry, $buff, $lineno) = @_;
 
-  my $known_vars = \@lilo_image_vars if (exists $entry->{'entry'});
+  my $known_vars = \@lilo_image_vars if (exists $entry->{'image'});
   $known_vars = \@lilo_other_vars if (!$known_vars && exists $entry->{'other'});
   return $buff unless $known_vars;
   
@@ -507,10 +507,10 @@ sub xst_boot_lilo_add_entry
   my ($line, $key, $value, $known_vars);
 
   # Entry line
-  if (exists $entry->{'entry'})
+  if (exists $entry->{'image'})
   {
     $known_vars = \@lilo_image_vars;
-    $value = 'entry';
+    $value = 'image';
   }
   elsif (exists $entry->{'other'})
   {
@@ -555,7 +555,7 @@ sub xst_boot_lilo_add_entry
 
 sub xst_boot_lilo_entries_set
 {
-  my ($file, $key, $entries) = @_;
+  my ($file, $entries) = @_;
   my ($buff, $lineno, $found, $entry);
 
   return if (scalar @$entries <= 0);
@@ -579,7 +579,7 @@ sub xst_boot_lilo_entries_set
           
         if ($found > 0)
         {
-          # Found entry, change it if neccecary,
+          # Found entry, change it if necessary,
           # remove %entry from @entries and find new entry.
           &xst_boot_lilo_edit_entry ($entry, $buff, $lineno);
           $entry = undef;