From 23aae5f0b85a610ed95d224da331f0e91da7611f Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Fri, 16 Sep 2005 08:48:14 +0000
Subject: [PATCH] my $xmlEncoding = $1 || 'utf8';

---
 docs/changelog/6.x.x.txt                      | 1 +
 lib/WebGUI/Asset/Wobject/SyndicatedContent.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index 59f160c94..c5a8cce64 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -5,6 +5,7 @@
  - Corrected an error in the built in WebGUI config file documentation.
  - Fixed Survey copy bug that prevented asset from appearing in clipboard.
  - Fixed Survey copy bug that was preventing section data from being copied.
+ - Workedaround a bug for broken xml docs in Syndicated Content. (mwilson)
 
 6.7.4
  - fix [ 1279861 ] POD errors in 6.7.3
diff --git a/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm b/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm
index 8a4b36317..db6094f05 100644
--- a/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm
+++ b/lib/WebGUI/Asset/Wobject/SyndicatedContent.pm
@@ -253,7 +253,7 @@ sub _get_rss_data {
 		# Convert encoding if needed / Perl 5.8.0 or up required.
 		if ($] >= 5.008 && $hasEncode) {
 			$xml =~ /<\?xml.*?encoding=['"](\S+)['"]/i;
-			my $xmlEncoding = $1;
+			my $xmlEncoding = $1 || 'utf8';
 			my $encoding = 'utf8';
 			if (lc($xmlEncoding) ne lc($encoding)) {
 				eval {	from_to($xml, $xmlEncoding, $encoding) };