cvsuser 02/03/12 08:57:34
Modified: P5EEx/Blue/P5EEx/Blue/Widget HTML.pm
Log:
optimized html-escaping of null and empty-string values
Revision Changes Path
1.5 +3 -2 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML.pm
Index: HTML.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- HTML.pm 2 Mar 2002 03:07:47 -0000 1.4
+++ HTML.pm 12 Mar 2002 16:57:34 -0000 1.5
@@ -1,10 +1,10 @@
######################################################################
-## $Id: HTML.pm,v 1.4 2002/03/02 03:07:47 spadkins Exp $
+## $Id: HTML.pm,v 1.5 2002/03/12 16:57:34 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML;
-$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.5 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::Widget;
@ISA = ( "P5EEx::Blue::Widget" );
@@ -81,6 +81,7 @@
# HTML-escape data
sub html_escape {
my ($self, $text) = @_;
+ return "" if (!defined $text || $text eq "");
$text =~ s{&}{&}gso;
$text =~ s{<}{<}gso;
$text =~ s{>}{>}gso;
