From: Alexandre Duret-Lutz <adl@gnu.org>
Date: Tue, 8 Oct 2002 17:37:56 +0000 (+0000)
Subject: * lib/Automake/Conditional.pm (has): Simplify.
X-Git-Tag: Release-1-7-2b~143
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bcb024d731d8a74aa318aad1ecadd81f9718cda0;p=thirdparty%2Fautomake.git

* lib/Automake/Conditional.pm (has): Simplify.
---

diff --git a/ChangeLog b/ChangeLog
index 8325401a7..f0a02a730 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-10-08  Alexandre Duret-Lutz  <adl@gnu.org>
+
+	* lib/Automake/Conditional.pm (has): Simplify.
+
 2002-10-07  Alexandre Duret-Lutz  <adl@gnu.org>
 
 	* lib/Automake/Conditional.pm: New file.
diff --git a/lib/Automake/Conditional.pm b/lib/Automake/Conditional.pm
index 023c1d785..26a16a5c2 100644
--- a/lib/Automake/Conditional.pm
+++ b/lib/Automake/Conditional.pm
@@ -36,7 +36,7 @@ Automake::Conditional - record a conjunction of conditions
   #   "COND1 and not COND2 and not COND3".
   my $both = $cond->merge ($other);
 
-  # Likewise, but using a list of atomica conditional strings
+  # Likewise, but using a list of atomic conditional strings
   my $both2 = $cond->merge_conds ("COND3_FALSE");
 
   # Return the list of conditions ("COND1_TRUE", "COND2_FALSE"):
@@ -231,11 +231,7 @@ sub conds ($ )
 sub has ($$)
 {
   my ($self, $cond) = @_;
-  if (exists $self->{'hash'}{$cond})
-    {
-      return $self->{'hash'}{$cond};
-    }
-  return 0;
+  return exists $self->{'hash'}{$cond};
 }
 
 =item C<$cond-E<gt>false>