perl4 fixlet

diff --git a/ChangeLog b/ChangeLog
index fc844c514db689d249fd5c1855a6c2fe7e2c2a0c..70a957f76903e92a7e21450ce216f40d16fd90b8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 Tue Jun  2 13:27:34 1998  Tom Tromey  <tromey@cygnus.com>
 
+       * automake.in (scan_one_configure_file): Make CONFIGURE file
+       handle local.
+
        * automake.in (read_am_file): Error if blank line or comment
        follows trailing backslash.  Test syntax.test.
        (file_contents_with_transform): Likewise.

diff --git a/automake.in b/automake.in
index a91bf4638250e45076d9ff33fce4dd77a50ea09a..73fcb5c9cb371e461aa5d1925264ebab5bc0a07f 100755 (executable)
--- a/automake.in
+++ b/automake.in
@@ -295,7 +295,7 @@ if ($generate_deps)
     die "automake: Must provide --srcdir-name when generating\n"
       if (!$srcdir_name);
 
-    open(GDEP, ">$output_directory/.dep_segment")
+    open (GDEP, ">$output_directory/.dep_segment")
       || die "automake: Could not open `$output_directory/.dep_segment': $!\n";
 
     &handle_dependencies;
@@ -4024,6 +4024,7 @@ sub handle_minor_options
 sub scan_one_configure_file
 {
     local ($filename) = @_;
+    local (*CONFIGURE);
 
     open (CONFIGURE, $filename)
        || die "automake: couldn't open \`$filename': $!\n";