extractapi.pl: correctly store regex as string

This commit is contained in:
Dietmar Maurer 2018-07-24 10:02:00 +02:00
parent 5aa25367b7
commit 7c07e752c5

View File

@ -23,7 +23,7 @@ sub remove_code_refs {
if ($itemclass eq 'CODE') { if ($itemclass eq 'CODE') {
undef $tree->{$k}; undef $tree->{$k};
} elsif ($itemclass eq 'Regexp') { } elsif ($itemclass eq 'Regexp') {
$tree->{$k} = "$tree"; # return string representation $tree->{$k} = "$tree->{$k}"; # return string representation
} else { } else {
remove_code_refs($tree->{$k}); remove_code_refs($tree->{$k});
} }