… | … | ||
---|---|---|---|
36 | given ($type) { | 36 | given ($type) { |
37 | when ("disallowed") { | 37 | when ("disallowed") { |
38 | # nop | 38 | # nop |
39 | } | 39 | } |
40 | when (/mapped|deviation|ignored/) { | 40 | when (/mapped|deviation|ignored/) { |
41 | $map .= "\x01" if $type eq "deviation"; | 41 | $map = "\x01$map" if $type eq "deviation"; |
42 | 42 | ||
43 | $imap .= "\x00" . chr . $map | 43 | $imap .= "\x00" . chr . $map |
44 | for $r1 .. $r2 || $r1; | 44 | for $r1 .. $r2 || $r1; |
45 | } | 45 | } |
46 | when ("valid") { | 46 | when ("valid") { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |