X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;ds=sidebyside;f=lib%2FCGI%2FEx%2FFill.pm;h=ca727f2660aaa7ecde8f80ffdd19f3aac15576f8;hb=8a1796477c5a835d8c124cfa8504909dc786d93b;hp=662c0d9a7ee823be96450a62aeb329d9bc559011;hpb=4eee158dce82376f2f37de29d91c53f60a24aebe;p=chaz%2Fp5-CGI-Ex
diff --git a/lib/CGI/Ex/Fill.pm b/lib/CGI/Ex/Fill.pm
index 662c0d9..ca727f2 100644
--- a/lib/CGI/Ex/Fill.pm
+++ b/lib/CGI/Ex/Fill.pm
@@ -7,7 +7,7 @@ CGI::Ex::Fill - Fast but compliant regex based form filler
=cut
###----------------------------------------------------------------###
-# Copyright 2006 - Paul Seamons #
+# Copyright 2007 - Paul Seamons #
# Distributed under the Perl Artistic License without warranty #
###----------------------------------------------------------------###
@@ -24,7 +24,7 @@ use vars qw($VERSION
use base qw(Exporter);
BEGIN {
- $VERSION = '2.00';
+ $VERSION = '2.09';
@EXPORT = qw(form_fill);
@EXPORT_OK = qw(fill form_fill html_escape get_tagval_by_key swap_tagval_by_key);
};
@@ -185,7 +185,7 @@ sub fill {
### First pass
### swap form elements if they have a name
$$ref =~ s{
- (] )* >) # nested html ok
+ (] )+ >) # nested html ok
}{
### get the type and name - intentionally exlude names with nested "'
my $tag = $1;
@@ -249,7 +249,7 @@ sub fill {
my $opts = substr($$ref, $start[$i], $close[$i] - $start[$i]);
$opts =~ s{
(