extractapi.pl: correctly store regex as string

diff --git a/extractapi.pl b/extractapi.pl
index 8a650df26a9e99a4bff642ba8d8bf2b0bed295ab..b2ec7b0ffea410c51c152587b17608b4790ab4b3 100755 (executable)
--- a/extractapi.pl
+++ b/extractapi.pl
@@ -23,7 +23,7 @@ sub remove_code_refs {
                if ($itemclass eq 'CODE') {
                    undef $tree->{$k};
                } elsif ($itemclass eq 'Regexp') {
                if ($itemclass eq 'CODE') {
                    undef $tree->{$k};
                } elsif ($itemclass eq 'Regexp') {

-                   $tree->{$k} = "$tree"; # return string representation
+                   $tree->{$k} = "$tree->{$k}"; # return string representation

                } else {
                    remove_code_refs($tree->{$k});
                }
                } else {
                    remove_code_refs($tree->{$k});
                }