X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;ds=sidebyside;f=lib%2FCGI%2FEx%2FFill.pm;h=ca727f2660aaa7ecde8f80ffdd19f3aac15576f8;hb=8a1796477c5a835d8c124cfa8504909dc786d93b;hp=0947028efc42ddaf0f092296089eb07acdd00959;hpb=d2b7c937e86e6e8c4b4193e9f4a8da075919b4fd;p=chaz%2Fp5-CGI-Ex
diff --git a/lib/CGI/Ex/Fill.pm b/lib/CGI/Ex/Fill.pm
index 0947028..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.03';
+ $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{
(