From fd32944c125cf14cd4864428f755afa3d82d3e71 Mon Sep 17 00:00:00 2001
From: "Andreas J. Koenig" <k@k5.linux.bogus>
Date: Sat, 11 Apr 2009 11:05:52 +0200
Subject: [PATCH] avoid a string eval

---
 lib/File/Rsync/Mirror/Recentfile.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/File/Rsync/Mirror/Recentfile.pm b/lib/File/Rsync/Mirror/Recentfile.pm
index dd59320..cd12fd8 100644
--- a/lib/File/Rsync/Mirror/Recentfile.pm
+++ b/lib/File/Rsync/Mirror/Recentfile.pm
@@ -2162,8 +2162,9 @@ sub write_1 {
 }
 
 BEGIN {
+    my $nq = qr/[^"]+/; # non-quotes
     my @pod_lines = 
-        split /\n/, <<'=cut'; %serializers = map { eval } grep {s/^=item\s+C<<(.+)>>$/$1/} @pod_lines; }
+        split /\n/, <<'=cut'; %serializers = map { my @x = /"($nq)"\s+=>\s+"($nq)"/; @x } grep {s/^=item\s+C<<\s+(.+)\s+>>$/$1/} @pod_lines; }
 
 =head1 SERIALIZERS
 
-- 
2.11.4.GIT