mirror of
https://github.com/Stichting-MINIX-Research-Foundation/pkgsrc-ng.git
synced 2025-09-24 04:03:34 -04:00
21 lines
637 B
Perl
21 lines
637 B
Perl
$NetBSD: patch-lib_RT_Interface_Email_Auth_GnuPG.pm,v 1.2 2012/10/31 20:39:26 spz Exp $
|
|
|
|
perl 5.14 qw() in for* fixes
|
|
|
|
--- lib/RT/Interface/Email/Auth/GnuPG.pm.orig 2012-10-25 20:19:10.000000000 +0000
|
|
+++ lib/RT/Interface/Email/Auth/GnuPG.pm
|
|
@@ -76,11 +76,11 @@ sub GetCurrentUser {
|
|
);
|
|
|
|
foreach my $p ( $args{'Message'}->parts_DFS ) {
|
|
- $p->head->delete($_) for qw(
|
|
+ $p->head->delete($_) for (qw(
|
|
X-RT-GnuPG-Status X-RT-Incoming-Encryption
|
|
X-RT-Incoming-Signature X-RT-Privacy
|
|
X-RT-Sign X-RT-Encrypt
|
|
- );
|
|
+ ));
|
|
}
|
|
|
|
my $msg = $args{'Message'}->dup;
|