27-variable-value.patch

[Akim Demaille]

Index: ChangeLog
from  Akim Demaille  <address@hidden>
        * automake.in (&handle_footer, &handle_installdirs)
        (&read_main_am_file): Don't read %contents directly, use
        &variable_value.
        
        
Index: automake.in
--- automake.in Sat, 10 Mar 2001 13:36:31 +0100 akim (am/f/39_automake.i 1.145 
755)
+++ automake.in Sat, 10 Mar 2001 13:50:29 +0100 akim (am/f/39_automake.i 1.145 
755)
@@ -3770,19 +3770,19 @@ sub handle_gettext
 # Handle footer elements.
 sub handle_footer
 {
-    if ($contents{'SOURCES'})
+    if (variable_value ('SOURCES'))
     {
        # NOTE don't use define_pretty_variable here, because
        # $contents{...} is already defined.
-       $output_vars .= 'SOURCES = ' . $contents{'SOURCES'} . "\n";
+       $output_vars .= 'SOURCES = ' . variable_value ('SOURCES') . "\n";
     }
-    if ($contents{'OBJECTS'})
+    if (variable_value ('OBJECTS'))
     {
        # NOTE don't use define_pretty_variable here, because
        # $contents{...} is already defined.
-       $output_vars .= 'OBJECTS = ' . $contents{'OBJECTS'} . "\n";
+       $output_vars .= 'OBJECTS = ' . variable_value ('OBJECTS') . "\n";
     }
-    if ($contents{'SOURCES'} || $contents{'OBJECTS'})
+    if (variable_value ('SOURCES') || variable_value ('OBJECTS'))
     {
        $output_vars .= "\n";
     }
@@ -3827,7 +3827,7 @@ sub handle_installdirs ()
     $output_rules .=
       &file_contents ('install',
                      ('_am_installdirs'
-                      => $contents{'_am_installdirs'} || ''));
+                      => variable_value ('_am_installdirs') || ''));
 }
 
 
@@ -6641,7 +6641,7 @@ sub read_main_am_file
        else
        {
            $output_vars .= ($var . ' ' . $def_type{$var} . '= '
-                            . $contents{$var} . "\n");
+                            . variable_value ($var) . "\n");
        }
     }
 
@@ -6655,7 +6655,7 @@ sub read_main_am_file
     # not change.
     foreach my $var (keys %saved_contents)
     {
-       if ($contents{$var} eq $saved_contents{$var})
+       if (variable_value ($var) eq $saved_contents{$var})
        {
            delete $contents{$var};
        }