From: Alexandre Duret-Lutz <adl@gnu.org>
Date: Thu, 7 Nov 2002 23:03:15 +0000 (+0000)
Subject: * automake.in (switch_warning): Subject Perl warnings to -Werror.
X-Git-Tag: Release-1-7b~387
X-Git-Url: https://sourceware.org/git/?a=commitdiff_plain;h=4098f3a8acf70abfca282056c602d2bc03ae8d4a;p=automake.git

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

diff --git a/ChangeLog b/ChangeLog
index 99fff09d..0f483597 100644
--- 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 6026b741..13c7edd2 100755
--- 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')
     {