X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;ds=sidebyside;f=lib%2FCGI%2FEx%2FFill.pm;h=beeb542fbf0e9441fa0155081fdf27b3850ec213;hb=b6e904ff7b346908d0662aae9a9c5f7d976dd85e;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..beeb542 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.17';
@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{
(