X-Git-Url: https://git.dogcows.com/gitweb?a=blobdiff_plain;f=lib%2FCGI%2FEx%2FFill.pm;h=9cf60cd388b494a191bbe8aad191047ba6750572;hb=80a766126b7d0281ee013d369d9e6af45cc2cf42;hp=191f392d756f85da17f953a73bb48fcb3dbec0e1;hpb=d710d6cd21be21c0ab2df3566c2bd61d9015cac6;p=chaz%2Fp5-CGI-Ex
diff --git a/lib/CGI/Ex/Fill.pm b/lib/CGI/Ex/Fill.pm
index 191f392..9cf60cd 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.04';
+ $VERSION = '2.13';
@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{
(