From 7eb536ae4089eb791cff87c57f4d7fde10e7d791 Mon Sep 17 00:00:00 2001
From: Mathieu Arnold <mat@FreeBSD.org>
Date: Tue, 20 Jan 2004 17:32:00 +0000
Subject: Fix for perl < 5.6

PR:		61609
---
 .../files/patch-lib::Mail::SpamAssassin.pm                   | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 mail/p5-Mail-SpamAssassin/files/patch-lib::Mail::SpamAssassin.pm

(limited to 'mail/p5-Mail-SpamAssassin/files/patch-lib::Mail::SpamAssassin.pm')

diff --git a/mail/p5-Mail-SpamAssassin/files/patch-lib::Mail::SpamAssassin.pm b/mail/p5-Mail-SpamAssassin/files/patch-lib::Mail::SpamAssassin.pm
new file mode 100644
index 000000000000..c748146c84f8
--- /dev/null
+++ b/mail/p5-Mail-SpamAssassin/files/patch-lib::Mail::SpamAssassin.pm
@@ -0,0 +1,12 @@
+--- lib/Mail/SpamAssassin.pm~	Sun Jan 18 01:07:25 2004
++++ lib/Mail/SpamAssassin.pm	Tue Jan 20 18:27:40 2004
+@@ -97,7 +97,8 @@
+ # "mss<number>", <number> increasing with every hack.
+ @EXTRA_VERSION = qw();
+ if (defined $IS_DEVEL_BUILD && $IS_DEVEL_BUILD) {
+-  push(@EXTRA_VERSION, ( 'r' . qw{$LastChangedRevision: 6141 $ updated by SVN}[1] ));
++  my @a = qw{$LastChangedRevision: 6141 $ updated by SVN};
++  push(@EXTRA_VERSION, ( 'r' . $a[1] ));
+ }
+ 
+ sub Version { join('-', $VERSION, @EXTRA_VERSION) }
-- 
cgit v1.2.3