From 4f5a010faadcb0d5b4ccafad91fbbbaf55fe54e7 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 25 Apr 2009 14:57:18 +0000
Subject: [PATCH] Fix a syntax warning re shift.

---
 lib/WebGUI/HTML.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/HTML.pm b/lib/WebGUI/HTML.pm
index a05357024..1bbf97572 100644
--- a/lib/WebGUI/HTML.pm
+++ b/lib/WebGUI/HTML.pm
@@ -227,7 +227,7 @@ my $text = "";
 my $inside = {};
 
 sub html2text {
-	my $html = shift . " ";
+	my $html = shift() . " ";
 	$text = "";
 	$inside = {};
 	my $tagHandler = sub {