From 7c07e752c50bd43996ef7f698f61ac4ab40f0376 Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Tue, 24 Jul 2018 10:02:00 +0200
Subject: [PATCH] extractapi.pl: correctly store regex as string

---
 extractapi.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extractapi.pl b/extractapi.pl
index 8a650df..b2ec7b0 100755
--- 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') {
-		    $tree->{$k} = "$tree"; # return string representation
+		    $tree->{$k} = "$tree->{$k}"; # return string representation
 		} else {
 		    remove_code_refs($tree->{$k});
 		}
-- 
2.39.2