From 9534f18a5d09ace51b3b983185f606fbb6d0e10c Mon Sep 17 00:00:00 2001
From: Max Kellermann <max@foo-projects.org>
Date: Fri, 5 Dec 2008 15:20:15 +0000
Subject: [PATCH] use negate_value() in parse_keyword()

git-svn-id: svn+ssh://foo-projects.org/var/svn/ferm/trunk@1297 887c3e53-ddf1-0310-8e39-e0d3fab4ed34
---
 src/ferm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ferm b/src/ferm
index d2676e3..78c264b 100755
--- a/src/ferm
+++ b/src/ferm
@@ -894,7 +894,7 @@ sub join_value($$) {
     }
 }
 
-sub negate_value($$$) {
+sub negate_value($$;$) {
     my ($value, $class, $allow_array) = @_;
 
     if (ref $value) {
@@ -1380,7 +1380,7 @@ sub parse_keyword(\%$$) {
         } (1..$params) ], 'params';
     }
 
-    $value = bless [ $value ], exists $def->{pre_negation} ? 'pre_negated' : 'negated'
+    $value = negate_value($value, exists $def->{pre_negation} && 'pre_negated')
       if $negated;
 
     return $value;
-- 
2.11.4.GIT