X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=lib%2FSub%2FNary.pm;h=f408f8c50ff5fdd31d42ab622e401c8a8b4cf329;hp=18d4223bae05c4c8ad3919fda05e3513fa8ee114;hb=1a31caf5f555fb5f0b63ac682c7ea4b542282186;hpb=4b846088d0ffe4f979b145ec2af821922bd5c7af diff --git a/lib/Sub/Nary.pm b/lib/Sub/Nary.pm index 18d4223..f408f8c 100644 --- a/lib/Sub/Nary.pm +++ b/lib/Sub/Nary.pm @@ -202,7 +202,7 @@ $ops{$_} = 0 for qw/stub nextstate/; $ops{$_} = 1 for qw/padsv/; $ops{$_} = 'list' for qw/padav/; $ops{$_} = 'list' for qw/padhv rv2hv/; -$ops{$_} = 'list' for qw/padany flip/; +$ops{$_} = 'list' for qw/padany flip match/; sub enter { my ($self, $cv) = @_;