After another tour through this not well documented and pretty obviously
_undertested_ code (I'm yet to find one unit test), I'm settling for
another fix.

Bastian

-- 
It is necessary to have purpose.
                -- Alice #1, "I, Mudd", stardate 4513.3
diff -u ferm-2.1/src/ferm ferm-2.1/src/ferm
--- ferm-2.1/src/ferm
+++ ferm-2.1/src/ferm
@@ -2052,7 +2052,7 @@
                         new_level(%inner, \%rule);
                         set_domain(%inner, $domain) or next;
                         $script->{tokens} = [ @$tokens ];
-                        enter(0, \%inner);
+                        enter($script->{base_level}, \%inner);
                     }
 
                     $script->{tokens} = $old_tokens;
diff -u ferm-2.1/debian/changelog ferm-2.1/debian/changelog
--- ferm-2.1/debian/changelog
+++ ferm-2.1/debian/changelog
@@ -1,3 +1,10 @@
+ferm (2.1-4.1) UNRELEASED; urgency=low
+
+  * Non-maintainer upload.
+  * Fix level of domain blocks. (closes: #696130)
+
+ -- Bastian Blank <[email protected]>  Sun, 23 Dec 2012 10:52:20 +0000
+
 ferm (2.1-4) unstable; urgency=low
 
   * [4ede608] Backport a patch that fixes a regression in functions containing

Reply via email to