diff options
Diffstat (limited to 'mail/anomy-sanitizer/patches/patch-anomy_bin_Anomy_Sanitizer_MacroScanner.pm')
| -rw-r--r-- | mail/anomy-sanitizer/patches/patch-anomy_bin_Anomy_Sanitizer_MacroScanner.pm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/mail/anomy-sanitizer/patches/patch-anomy_bin_Anomy_Sanitizer_MacroScanner.pm b/mail/anomy-sanitizer/patches/patch-anomy_bin_Anomy_Sanitizer_MacroScanner.pm new file mode 100644 index 00000000000..98e6094cbcd --- /dev/null +++ b/mail/anomy-sanitizer/patches/patch-anomy_bin_Anomy_Sanitizer_MacroScanner.pm @@ -0,0 +1,23 @@ +$NetBSD: patch-anomy_bin_Anomy_Sanitizer_MacroScanner.pm,v 1.1 2018/01/23 01:28:02 christos Exp $ + +New version of perl wants escaped braces + +--- bin/Anomy/Sanitizer/MacroScanner.pm.orig 2001-12-21 21:47:58.000000000 -0500 ++++ bin/Anomy/Sanitizer/MacroScanner.pm 2018-01-22 20:19:51.344624389 -0500 +@@ -117,14 +117,14 @@ + $score += 99 while ($buff =~ s/\000(VirusProtection)/x$1/i); + $score += 99 while ($buff =~ s/\000(select\s[^\000]*shell\s*\()/x$1/i); + $score += 9 while ($buff =~ s/\000(regedit|SaveNormalPrompt|Outlook.Application\000)/x$1/i); +- $score += 4 while ($buff =~ s/\000(ID="{[-0-9A-F]+)$/x$1/i); ++ $score += 4 while ($buff =~ s/\000(ID="\{[-0-9A-F]+)$/x$1/i); + $score += 4 while ($buff =~ s/\000(CreateObject)/x$1/i); + $score += 4 while ($buff =~ s/(?:\000|\004)(([a-z0-9_]\.)*(Autoexec|Workbook_(Open|BeforeClose)|Document_(Open|New|Close)))/x$1/i); + $score += 4 while ($buff =~ s/(?:\000|\004)(Logon|AddressLists|AddressEntries|Recipients|Subject|Body|Attachments|Logoff)/x$1/i); + $score += 2 while ($buff =~ s/\000(Shell|Options|CodeModule)/x$1/i); + $score += 2 while ($buff =~ s/\000(([a-z]+\.)?Application\000)/x$1/i); + $score += 2 while ($buff =~ s/(?:\000|\004)(stdole|NormalTemplate)/x$1/i); +- $score += 1 while ($buff =~ s/\000(ID="{[-0-9A-F]+}"|ThisWorkbook\000|PrivateProfileString)/x$1/i); ++ $score += 1 while ($buff =~ s/\000(ID="\{[-0-9A-F]+}"|ThisWorkbook\000|PrivateProfileString)/x$1/i); + $score += 1 while ($buff =~ s/(?:\000|\004)(ActiveDocument|ThisDocument)/x$1/i); + $score += 1 while ($buff =~ s/\000(\[?HKEY_(CLASSES_ROOT|CURRENT_USER|LOCAL_MACHINE))/x$1/); + |