$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) = @_;
return $self->expect_list($op);
}
-# Stolen from Sub::Deparse
+# Stolen from B::Deparse
sub padval { $_[0]->{cv}->[0]->PADLIST->ARRAYelt(1)->ARRAYelt($_[1]) }