extractapi.pl: correctly store regex as string
authorDietmar Maurer <dietmar@proxmox.com>
Tue, 24 Jul 2018 08:02:00 +0000 (10:02 +0200)
committerDietmar Maurer <dietmar@proxmox.com>
Wed, 25 Jul 2018 08:22:35 +0000 (10:22 +0200)
extractapi.pl

index 8a650df..b2ec7b0 100755 (executable)
@@ -23,7 +23,7 @@ sub remove_code_refs {
                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});
                }