X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=lib%2FCGI%2FEx%2FFill.pm;h=74bff19cf06c5c6c992b0b82947133721c678781;hb=6ab8b2e8e8388d1a238148a1ee58e124855f3768;hp=ee6d2a15922860c1064c75224a9879ecb761b145;hpb=3fe8e76eb82e9d74f656674c5ba913950e166ab1;p=chaz%2Fp5-CGI-Ex
diff --git a/lib/CGI/Ex/Fill.pm b/lib/CGI/Ex/Fill.pm
index ee6d2a1..74bff19 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 2003-2012 - 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.02';
+ $VERSION = '2.37';
@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{
(