* automake.in (switch_warning): Subject Perl warnings to -Werror.

diff --git a/ChangeLog b/ChangeLog
index 99fff09..0f48359 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2002-11-07  Alexandre Duret-Lutz  <adl@gnu.org>
 
+       * automake.in (switch_warning): Subject Perl warnings to -Werror.
+
        * automake.texi (Extending): Complete unterminated sentence.
        Reported by Mike Castle.
 

diff --git a/automake.in b/automake.in
index 6026b74..13c7edd 100755 (executable)
--- a/automake.in
+++ b/automake.in
@@ -1431,11 +1431,15 @@ sub switch_warning ($)
     }
   elsif ($cat eq 'none')
     {
-      setup_channel_type 'warning', silent => 1 - $has_no;
+      setup_channel_type 'warning', silent => ! $has_no;
     }
   elsif ($cat eq 'error')
     {
-      $warnings_are_errors = 1 - $has_no;
+      $warnings_are_errors = ! $has_no;
+      # Set exit code if Perl warns about something
+      # (like uninitialized variables).
+      $SIG{"__WARN__"} =
+       $has_no ? 'DEFAULT' : sub { print STDERR @_; $exit_code = 1; };
     }
   elsif (channel_type ($cat) eq 'warning')
     {