1 files changed, 49 insertions, 0 deletions
diff --git a/main/rt4/rt4-perl-qw-list-deprecation.patch b/main/rt4/rt4-perl-qw-list-deprecation.patch
new file mode 100644
index 0000000000..6887539995
--- /dev/null
+++ b/main/rt4/rt4-perl-qw-list-deprecation.patch
@@ -0,0 +1,49 @@
+--- a/share/html/Ticket/Elements/PreviewScrips
++++ b/share/html/Ticket/Elements/PreviewScrips
+@@ -69,7 +69,7 @@
+           <b><% $scrip->Description || loc('Scrip #[_1]',$scrip->id) %></b><br />
+           <&|/l, loc($scrip->ConditionObj->Name), loc($scrip->ActionObj->Name), loc($scrip->TemplateObj->Name)&>[_1] [_2] with template [_3]</&>
+           <br />
+-%         for my $type qw(To Cc Bcc) {
++%         for my $type (qw(To Cc Bcc)) {
+ %             my @addresses =  $scrip->ActionObj->Action->$type();
+ %             next unless @addresses;
+               <ul>
+@@ -97,7 +97,7 @@
+ %         next unless $rule->{hints} && $rule->{hints}{class} eq 'SendEmail';
+           <b><% $rule->Describe %></b>
+ %         my $data = $rule->{hints}{recipients};
+-%         for my $type qw(To Cc Bcc) {
++%         for my $type (qw(To Cc Bcc)) {
+ %             next unless @{$data->{$type}};
+               <ul>
+ %             for my $address (@{$data->{$type}}) {
+--- a/share/html/Ticket/Elements/ShowSimplifiedRecipients
++++ b/share/html/Ticket/Elements/ShowSimplifiedRecipients
+@@ -58,7 +58,7 @@
+ my %headers = (To => {}, Cc => {}, Bcc => {});
+ if ($Object->Scrips) {
+     for my $scrip (grep $_->ActionObj->Action->isa('RT::Action::SendEmail'), @{$Object->Scrips->Prepared}) {
+-        for my $type qw(To Cc Bcc) {
++        for my $type (qw(To Cc Bcc)) {
+             $headers{$type}{$_->address} = $_
+                 for $scrip->ActionObj->Action->$type();
+         }
+@@ -66,7 +66,7 @@
+ }
+ if ($Object->Rules) {
+     for my $rule (grep {$_->{hints} and $_->{hints}{class} eq "SendEmail"} @{$Object->Rules}) {
+-        for my $type qw(To Cc Bcc) {
++        for my $type (qw(To Cc Bcc)) {
+             $headers{$type}{$_} ||= @{[Email::Address->parse($_)]}[0] # Hate list context
+                 for @{$rule->{hints}{recipients}{$type}};
+         }
+@@ -77,7 +77,7 @@
+ <&|/Widgets/TitleBox, title => loc('Recipients'), id => 'recipients' &>
+ <table>
+ <tr>
+-% for my $type qw(To Cc Bcc) {
++% for my $type (qw(To Cc Bcc)) {
+ %     next unless keys %{$headers{$type}};
+ <td valign="top"><% $type %>:</td>
+ <td valign="top">