ipc: adapt dump-asy.pl for the new orientation format

diff --git a/dump-asy.pl b/dump-asy.pl
index dc2cbeab19fff5d6b97d08ae093278c2089fda20..a8eab04c4359f3e3c845766d1071467aa6df0e2a 100755 (executable)
--- a/dump-asy.pl
+++ b/dump-asy.pl
@@ -22,7 +22,7 @@ say $tmp "treeLevelStep = 2cm;";
 sub dump_node {
        my ($n, $parent) = @_;
 
-    my $o = ($n->{orientation} == 0 ? "u" : ($n->{orientation} == 1 ? "h" : "v"));
+    my $o = ($n->{orientation} eq 'none' ? "u" : ($n->{orientation} eq 'horizontal' ? "h" : "v"));
     my $w = (defined($n->{window}) ? $n->{window} : "N");
     my $na = $n->{name};
     $na =~ s/#/\\#/g;