main/rt4: update to 4.0.1

main/rt4/APKBUILD

 # Contributor: Natanael Copa <ncopa@alpinelinux.org>
 # Maintainer: Natanael Copa <ncopa@alpinelinux.org>
 pkgname=rt4
-pkgver=4.0.0
-pkgrel=1
+pkgver=4.0.1
+pkgrel=0
 pkgdesc="Request Tracker - issue and bug tracker"
 url="http://www.bestpractical.com/rt"
 arch="noarch"
@@ -70,8 +70,7 @@ depends="perl
 makedepends="$depends"
 install=""
 subpackages=""
-source="http://www.bestpractical.com/pub/rt/release/rt-$pkgver.tar.gz
-	rt4-perl-qw-list-deprecation.patch"
+source="http://www.bestpractical.com/pub/rt/release/rt-$pkgver.tar.gz"
 
 _builddir="$srcdir"/rt-$pkgver
 prepare() {
@@ -125,5 +124,4 @@ package() {
 	make DESTDIR="$pkgdir" install || return 1
 }
 
-md5sums="bd6045421a6f2d0e8c18923f80726e4a  rt-4.0.0.tar.gz
-ff469c9469be2bc094601939068e60ae  rt4-perl-qw-list-deprecation.patch"
+md5sums="bde89fbdadf7b709fb13f32638848b9d  rt-4.0.1.tar.gz"

main/rt4/rt4-perl-qw-list-deprecation.patch

---- 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">