From 774ff23920e1e2f3f2f23c7be3da27497c1b5df6 Mon Sep 17 00:00:00 2001
From: Berke Viktor <berkeviktor@aol.com>
Date: Wed, 23 Nov 2011 03:04:25 +0100
Subject: update xchat to r1498

---
 plugins/perl/lib/Xchat.pod    |  2 +-
 plugins/perl/perl.c           | 10 +++++++---
 plugins/perl/xchat2-perl.html |  2 +-
 3 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/plugins/perl/lib/Xchat.pod b/plugins/perl/lib/Xchat.pod
index a55a9bce..5b1bc201 100644
--- a/plugins/perl/lib/Xchat.pod
+++ b/plugins/perl/lib/Xchat.pod
@@ -723,7 +723,7 @@ Send multiple mode changes for the current channel. It may send multiple MODE li
 Example:
 
 =begin html
-<<div class="example">
+<div class="example">
 <code>
 use strict;
 use warning;
diff --git a/plugins/perl/perl.c b/plugins/perl/perl.c
index a29ce65a..1be7562e 100644
--- a/plugins/perl/perl.c
+++ b/plugins/perl/perl.c
@@ -1350,14 +1350,18 @@ perl_load_file (char *filename)
 					FreeLibrary (lib);
 					lib = NULL;
 					thread_mbox ("Cannot open " PERL_DLL "\n\n"
-									 "You must have ActivePerl " PERL_REQUIRED_VERSION " installed in order to\n"
+									 "You must have either ActivePerl or Straberry Perl"
+									 PERL_REQUIRED_VERSION
+									 " installed in order to\n"
 									 "run perl scripts.\n\n"
 									 "I have found Perl 5.6, but that is too old.");
 				} else {
 					thread_mbox ("Cannot open " PERL_DLL "\n\n"
-									 "You must have ActivePerl " PERL_REQUIRED_VERSION " installed in order to\n"
+									 "You must have either ActivePerl or Strawberry Perl "
+									 PERL_REQUIRED_VERSION " installed in order to\n"
 									 "run perl scripts.\n\n"
-									 "http://www.activestate.com/ActivePerl/\n\n"
+									 "http://www.activestate.com/ActivePerl/\n"
+									 "http://strawberryperl.com/\n"
 									 "Make sure perl's bin directory is in your PATH.");
 				}
 			}
diff --git a/plugins/perl/xchat2-perl.html b/plugins/perl/xchat2-perl.html
index 38dd3912..d555594e 100644
--- a/plugins/perl/xchat2-perl.html
+++ b/plugins/perl/xchat2-perl.html
@@ -686,7 +686,7 @@ One is the original and the second is the one you emit.</p>
 </ul>
 <p>Send multiple mode changes for the current channel. It may send multiple MODE lines if the request doesn't fit on one.</p>
 <p>Example:</p>
-<<div class="example synNormal"><div class='line_number'>
+<div class="example synNormal"><div class='line_number'>
 <div>1</div>
 <div>2</div>
 <div>3</div>
-- 
cgit 1.4.1