r35087 - in /trunk/libhtml-formfu-perl: ./ debian/ debian/patches/ inc/Module/ inc/Module/Install/ lib/HTML/ lib/HTML/FormFu/ lib/HTML/FormFu/Element/ t/deflators/ t/nested/elements/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sat May 9 15:07:27 UTC 2009
Author: ansgar-guest
Date: Sat May 9 15:07:21 2009
New Revision: 35087
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35087
Log:
* New upstream release.
+ Depends on libdata-visitor-perl (>= 0.23).
Added:
trunk/libhtml-formfu-perl/t/nested/elements/repeatable_repeatable.t
- copied unchanged from r35083, branches/upstream/libhtml-formfu-perl/current/t/nested/elements/repeatable_repeatable.t
trunk/libhtml-formfu-perl/t/nested/elements/repeatable_repeatable.yml
- copied unchanged from r35083, branches/upstream/libhtml-formfu-perl/current/t/nested/elements/repeatable_repeatable.yml
Modified:
trunk/libhtml-formfu-perl/Changes
trunk/libhtml-formfu-perl/MANIFEST
trunk/libhtml-formfu-perl/META.yml
trunk/libhtml-formfu-perl/Makefile.PL
trunk/libhtml-formfu-perl/debian/changelog
trunk/libhtml-formfu-perl/debian/control
trunk/libhtml-formfu-perl/debian/patches/how-to-report-bugs.diff
trunk/libhtml-formfu-perl/debian/patches/whatis-entries.diff
trunk/libhtml-formfu-perl/inc/Module/Install.pm
trunk/libhtml-formfu-perl/inc/Module/Install/Base.pm
trunk/libhtml-formfu-perl/inc/Module/Install/Can.pm
trunk/libhtml-formfu-perl/inc/Module/Install/Fetch.pm
trunk/libhtml-formfu-perl/inc/Module/Install/Makefile.pm
trunk/libhtml-formfu-perl/inc/Module/Install/Metadata.pm
trunk/libhtml-formfu-perl/inc/Module/Install/Scripts.pm
trunk/libhtml-formfu-perl/inc/Module/Install/Share.pm
trunk/libhtml-formfu-perl/inc/Module/Install/Win32.pm
trunk/libhtml-formfu-perl/inc/Module/Install/WriteAll.pm
trunk/libhtml-formfu-perl/lib/HTML/FormFu.pm
trunk/libhtml-formfu-perl/lib/HTML/FormFu/Element/Repeatable.pm
trunk/libhtml-formfu-perl/lib/HTML/FormFu/Element/_Field.pm
trunk/libhtml-formfu-perl/lib/HTML/FormFu/ObjectUtil.pm
trunk/libhtml-formfu-perl/t/deflators/pathclassfile.t
Modified: trunk/libhtml-formfu-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/Changes?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/Changes (original)
+++ trunk/libhtml-formfu-perl/Changes Sat May 9 15:07:21 2009
@@ -1,3 +1,17 @@
+0.04002 2009-05-08
+
+ - Incompatible Change: Element::Repeatable->repeat() now defaults to 1
+ instead of 0. This allows empty Repeatables.
+
+ - Fix test failures on Win32.
+
+ - During Element::Repeatable->process() call children's process() before
+ $self->repeat().
+
+ - Support nested Repeatable elements.
+
+ - Ensure plugins are correctly cloned.
+
0.04001 2009-04-15
- Fix handling of arguments to plugin().
Modified: trunk/libhtml-formfu-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/MANIFEST?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/MANIFEST (original)
+++ trunk/libhtml-formfu-perl/MANIFEST Sat May 9 15:07:21 2009
@@ -669,6 +669,8 @@
t/nested/elements/radiogroup.t
t/nested/elements/radiogroup_force_default.t
t/nested/elements/radiogroup_retain_default.t
+t/nested/elements/repeatable_repeatable.t
+t/nested/elements/repeatable_repeatable.yml
t/nested/elements/select.t
t/nested/elements/select_force_default.t
t/nested/elements/select_retain_default.t
Modified: trunk/libhtml-formfu-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/META.yml?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/META.yml (original)
+++ trunk/libhtml-formfu-perl/META.yml Sat May 9 15:07:21 2009
@@ -9,7 +9,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.42
distribution_type: module
-generated_by: 'Module::Install version 0.83'
+generated_by: 'Module::Install version 0.87'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -21,6 +21,7 @@
- inc
- share
- t
+ - xt
requires:
Captcha::reCAPTCHA: 0.92
Class::Accessor::Chained::Fast: 0
@@ -28,6 +29,7 @@
Config::Any: 0.10
Crypt::CBC: 0
Crypt::DES: 0
+ Data::Visitor: 0.23
Data::Visitor::Callback: 0
Date::Calc: 0
DateTime: 0.38
@@ -57,4 +59,4 @@
perl: 5.8.1
resources:
license: http://dev.perl.org/licenses/
-version: 0.04001
+version: 0.04002
Modified: trunk/libhtml-formfu-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/Makefile.PL?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/Makefile.PL (original)
+++ trunk/libhtml-formfu-perl/Makefile.PL Sat May 9 15:07:21 2009
@@ -15,6 +15,7 @@
requires 'Config::Any' => '0.10'; # supports multi-doc config files
requires 'Crypt::CBC';
requires 'Crypt::DES';
+requires 'Data::Visitor' => 0.23; # get rid of Squirrel warnings
requires 'Data::Visitor::Callback';
requires 'Date::Calc';
requires 'DateTime' => '0.38'; # required for string overloading
Modified: trunk/libhtml-formfu-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/debian/changelog?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/debian/changelog (original)
+++ trunk/libhtml-formfu-perl/debian/changelog Sat May 9 15:07:21 2009
@@ -1,3 +1,10 @@
+libhtml-formfu-perl (0.04002-1) unstable; urgency=low
+
+ * New upstream release.
+ + Depends on libdata-visitor-perl (>= 0.23).
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Sat, 09 May 2009 17:07:08 +0200
+
libhtml-formfu-perl (0.04001-1) unstable; urgency=low
[ Krzysztof Krzyżaniak (eloy) ]
Modified: trunk/libhtml-formfu-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/debian/control?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/debian/control (original)
+++ trunk/libhtml-formfu-perl/debian/control Sat May 9 15:07:21 2009
@@ -2,7 +2,7 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7), quilt
-Build-Depends-Indep: perl, libdatetime-perl (>= 0.38), libdata-visitor-perl,
+Build-Depends-Indep: perl, libdatetime-perl (>= 0.38),
libhtml-scrubber-perl, libemail-valid-perl, libdatetime-format-strptime-perl,
libdatetime-format-builder-perl (>= 0.7901), libdatetime-format-natural-perl,
libdatetime-locale-perl, libclass-accessor-chained-perl,
@@ -14,7 +14,8 @@
libcrypt-cbc-perl, libtest-nowarnings-perl, libcgi-simple-perl,
libdbix-class-perl, libreadonly-perl, libcaptcha-recaptcha-perl (>= 0.92),
perl-modules (>= 5.8.8) | libcgi-pm-perl, libnumber-format-perl,
- libhash-flatten-perl, libpath-class-perl, libnamespace-clean-perl
+ libhash-flatten-perl, libpath-class-perl, libnamespace-clean-perl,
+ libdata-visitor-perl (>= 0.23)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Ansgar Burchardt <ansgar at 43-1.org>,
Brian Cassidy <brian.cassidy at gmail.com>,
@@ -27,7 +28,7 @@
Package: libhtml-formfu-perl
Architecture: all
Depends: ${perl:Depends}, ${misc:Depends}, libdatetime-perl (>= 0.38),
- libdata-visitor-perl, libhtml-scrubber-perl, libemail-valid-perl,
+ libdata-visitor-perl (>= 0.23), libhtml-scrubber-perl, libemail-valid-perl,
libdatetime-format-strptime-perl, libdatetime-format-builder-perl (>= 0.7901),
libdatetime-format-natural-perl, libdatetime-locale-perl,
libclass-accessor-chained-perl, libregexp-common-perl, libfile-sharedir-perl (>= 0.05-1.2),
Modified: trunk/libhtml-formfu-perl/debian/patches/how-to-report-bugs.diff
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/debian/patches/how-to-report-bugs.diff?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/debian/patches/how-to-report-bugs.diff (original)
+++ trunk/libhtml-formfu-perl/debian/patches/how-to-report-bugs.diff Sat May 9 15:07:21 2009
@@ -1,9 +1,9 @@
Author: Ansgar Burchardt <ansgar at 43-1.org>
Subject: Gives more specific information for bug reporting
---- a/lib/HTML/FormFu.pm
-+++ b/lib/HTML/FormFu.pm
-@@ -3082,9 +3082,13 @@
+--- libhtml-formfu-perl.orig/lib/HTML/FormFu.pm
++++ libhtml-formfu-perl/lib/HTML/FormFu.pm
+@@ -3136,9 +3136,13 @@
=head1 BUGS
Modified: trunk/libhtml-formfu-perl/debian/patches/whatis-entries.diff
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/debian/patches/whatis-entries.diff?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/debian/patches/whatis-entries.diff (original)
+++ trunk/libhtml-formfu-perl/debian/patches/whatis-entries.diff Sat May 9 15:07:21 2009
@@ -1,9 +1,9 @@
Author: Ansgar Burchardt <ansgar at 43-1.org>
Subject: Adds a description to those files missing one
---- a/lib/HTML/FormFu/Attribute.pm
-+++ b/lib/HTML/FormFu/Attribute.pm
-@@ -343,7 +343,7 @@
+--- libhtml-formfu-perl.orig/lib/HTML/FormFu/Attribute.pm
++++ libhtml-formfu-perl/lib/HTML/FormFu/Attribute.pm
+@@ -349,7 +349,7 @@
=head1 NAME
@@ -12,8 +12,8 @@
=head1 SYNOPSIS
---- a/lib/HTML/FormFu/QueryType/CGI.pm
-+++ b/lib/HTML/FormFu/QueryType/CGI.pm
+--- libhtml-formfu-perl.orig/lib/HTML/FormFu/QueryType/CGI.pm
++++ libhtml-formfu-perl/lib/HTML/FormFu/QueryType/CGI.pm
@@ -70,7 +70,7 @@
=head1 NAME
@@ -23,8 +23,8 @@
=head1 METHODS
---- a/lib/HTML/FormFu/QueryType/CGI/Simple.pm
-+++ b/lib/HTML/FormFu/QueryType/CGI/Simple.pm
+--- libhtml-formfu-perl.orig/lib/HTML/FormFu/QueryType/CGI/Simple.pm
++++ libhtml-formfu-perl/lib/HTML/FormFu/QueryType/CGI/Simple.pm
@@ -49,7 +49,7 @@
=head1 NAME
@@ -34,8 +34,8 @@
=head1 METHODS
---- a/lib/HTML/FormFu/QueryType/Catalyst.pm
-+++ b/lib/HTML/FormFu/QueryType/Catalyst.pm
+--- libhtml-formfu-perl.orig/lib/HTML/FormFu/QueryType/Catalyst.pm
++++ libhtml-formfu-perl/lib/HTML/FormFu/QueryType/Catalyst.pm
@@ -99,7 +99,7 @@
=head1 NAME
@@ -45,9 +45,9 @@
=head1 DESCRIPTION
---- a/lib/HTML/FormFu/UploadParam.pm
-+++ b/lib/HTML/FormFu/UploadParam.pm
-@@ -99,7 +99,7 @@
+--- libhtml-formfu-perl.orig/lib/HTML/FormFu/UploadParam.pm
++++ libhtml-formfu-perl/lib/HTML/FormFu/UploadParam.pm
+@@ -100,7 +100,7 @@
=head1 NAME
@@ -56,9 +56,9 @@
=head1 DESCRIPTION
---- a/lib/HTML/FormFu/MultiForm.pm
-+++ b/lib/HTML/FormFu/MultiForm.pm
-@@ -571,7 +571,7 @@
+--- libhtml-formfu-perl.orig/lib/HTML/FormFu/MultiForm.pm
++++ libhtml-formfu-perl/lib/HTML/FormFu/MultiForm.pm
+@@ -572,7 +572,7 @@
=head1 NAME
Modified: trunk/libhtml-formfu-perl/inc/Module/Install.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/inc/Module/Install.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/inc/Module/Install.pm (original)
+++ trunk/libhtml-formfu-perl/inc/Module/Install.pm Sat May 9 15:07:21 2009
@@ -28,7 +28,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.83';
+ $VERSION = '0.87';
# Storage for the pseudo-singleton
$MAIN = undef;
Modified: trunk/libhtml-formfu-perl/inc/Module/Install/Base.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/inc/Module/Install/Base.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/inc/Module/Install/Base.pm (original)
+++ trunk/libhtml-formfu-perl/inc/Module/Install/Base.pm Sat May 9 15:07:21 2009
@@ -1,7 +1,11 @@
#line 1
package Module::Install::Base;
-$VERSION = '0.83';
+use strict 'vars';
+use vars qw{$VERSION};
+BEGIN {
+ $VERSION = '0.87';
+}
# Suspend handler for "redefined" warnings
BEGIN {
@@ -12,7 +16,7 @@
### This is the ONLY module that shouldn't have strict on
# use strict;
-#line 41
+#line 45
sub new {
my ($class, %args) = @_;
@@ -27,7 +31,7 @@
bless( \%args, $class );
}
-#line 62
+#line 66
sub AUTOLOAD {
my $self = shift;
@@ -38,13 +42,13 @@
goto &$autoload;
}
-#line 79
+#line 83
sub _top {
$_[0]->{_top};
}
-#line 94
+#line 98
sub admin {
$_[0]->_top->{admin}
@@ -52,7 +56,7 @@
Module::Install::Base::FakeAdmin->new;
}
-#line 110
+#line 114
sub is_admin {
$_[0]->admin->VERSION;
@@ -63,6 +67,7 @@
package Module::Install::Base::FakeAdmin;
my $fake;
+
sub new {
$fake ||= bless(\@_, $_[0]);
}
@@ -78,4 +83,4 @@
1;
-#line 157
+#line 162
Modified: trunk/libhtml-formfu-perl/inc/Module/Install/Can.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/inc/Module/Install/Can.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/inc/Module/Install/Can.pm (original)
+++ trunk/libhtml-formfu-perl/inc/Module/Install/Can.pm Sat May 9 15:07:21 2009
@@ -9,7 +9,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.83';
+ $VERSION = '0.87';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libhtml-formfu-perl/inc/Module/Install/Fetch.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/inc/Module/Install/Fetch.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/inc/Module/Install/Fetch.pm (original)
+++ trunk/libhtml-formfu-perl/inc/Module/Install/Fetch.pm Sat May 9 15:07:21 2009
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.83';
+ $VERSION = '0.87';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libhtml-formfu-perl/inc/Module/Install/Makefile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/inc/Module/Install/Makefile.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/inc/Module/Install/Makefile.pm (original)
+++ trunk/libhtml-formfu-perl/inc/Module/Install/Makefile.pm Sat May 9 15:07:21 2009
@@ -7,7 +7,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.83';
+ $VERSION = '0.87';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libhtml-formfu-perl/inc/Module/Install/Metadata.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/inc/Module/Install/Metadata.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/inc/Module/Install/Metadata.pm (original)
+++ trunk/libhtml-formfu-perl/inc/Module/Install/Metadata.pm Sat May 9 15:07:21 2009
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.83';
+ $VERSION = '0.87';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libhtml-formfu-perl/inc/Module/Install/Scripts.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/inc/Module/Install/Scripts.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/inc/Module/Install/Scripts.pm (original)
+++ trunk/libhtml-formfu-perl/inc/Module/Install/Scripts.pm Sat May 9 15:07:21 2009
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.83';
+ $VERSION = '0.87';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libhtml-formfu-perl/inc/Module/Install/Share.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/inc/Module/Install/Share.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/inc/Module/Install/Share.pm (original)
+++ trunk/libhtml-formfu-perl/inc/Module/Install/Share.pm Sat May 9 15:07:21 2009
@@ -6,7 +6,7 @@
use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
- $VERSION = '0.83';
+ $VERSION = '0.87';
$ISCORE = 1;
@ISA = qw{Module::Install::Base};
}
Modified: trunk/libhtml-formfu-perl/inc/Module/Install/Win32.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/inc/Module/Install/Win32.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/inc/Module/Install/Win32.pm (original)
+++ trunk/libhtml-formfu-perl/inc/Module/Install/Win32.pm Sat May 9 15:07:21 2009
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.83';
+ $VERSION = '0.87';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libhtml-formfu-perl/inc/Module/Install/WriteAll.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/inc/Module/Install/WriteAll.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/inc/Module/Install/WriteAll.pm (original)
+++ trunk/libhtml-formfu-perl/inc/Module/Install/WriteAll.pm Sat May 9 15:07:21 2009
@@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.83';
+ $VERSION = '0.87';
@ISA = qw{Module::Install::Base};
$ISCORE = 1;
}
Modified: trunk/libhtml-formfu-perl/lib/HTML/FormFu.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/lib/HTML/FormFu.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/lib/HTML/FormFu.pm (original)
+++ trunk/libhtml-formfu-perl/lib/HTML/FormFu.pm Sat May 9 15:07:21 2009
@@ -112,7 +112,7 @@
*plugins = \&plugin;
*add_plugins = \&add_plugin;
-our $VERSION = '0.04001';
+our $VERSION = '0.04002';
$VERSION = eval $VERSION;
Class::C3::initialize();
@@ -3169,7 +3169,7 @@
L<Catalyst::Controller::HTML::FormFu>
-L<DBIx::Class::FormFu>
+L<HTML::FormFu::Model::DBIC>
=head1 AUTHORS
Modified: trunk/libhtml-formfu-perl/lib/HTML/FormFu/Element/Repeatable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/lib/HTML/FormFu/Element/Repeatable.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/lib/HTML/FormFu/Element/Repeatable.pm (original)
+++ trunk/libhtml-formfu-perl/lib/HTML/FormFu/Element/Repeatable.pm Sat May 9 15:07:21 2009
@@ -27,10 +27,8 @@
sub repeat {
my ( $self, $count ) = @_;
- $count ||= 1;
-
croak "invalid number to repeat"
- if $count !~ /^[1-9][0-9]*\z/;
+ if $count !~ /^[0-9]+\z/;
my $children;
@@ -50,6 +48,8 @@
$self->_elements( [] );
+ return [] if !$count;
+
my @return;
for my $rep ( 1 .. $count ) {
@@ -66,9 +66,11 @@
for my $field ( @{ $block->get_fields } ) {
if ( defined( my $name = $field->name ) ) {
- $field->original_name($name);
-
- $field->original_nested_name( $field->nested_name );
+ $field->original_name($name)
+ if !defined $field->original_name;
+
+ $field->original_nested_name( $field->nested_name )
+ if !defined $field->original_nested_name;
$field->name("${name}_$rep");
}
Modified: trunk/libhtml-formfu-perl/lib/HTML/FormFu/Element/_Field.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/lib/HTML/FormFu/Element/_Field.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/lib/HTML/FormFu/Element/_Field.pm (original)
+++ trunk/libhtml-formfu-perl/lib/HTML/FormFu/Element/_Field.pm Sat May 9 15:07:21 2009
@@ -895,7 +895,7 @@
for my $list ( qw(
_filters _constraints _inflators _validators _transformers
- _deflators _errors )
+ _deflators _errors _plugins )
)
{
$clone->$list( [ map { $_->clone } @{ $self->$list } ] );
Modified: trunk/libhtml-formfu-perl/lib/HTML/FormFu/ObjectUtil.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/lib/HTML/FormFu/ObjectUtil.pm?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/lib/HTML/FormFu/ObjectUtil.pm (original)
+++ trunk/libhtml-formfu-perl/lib/HTML/FormFu/ObjectUtil.pm Sat May 9 15:07:21 2009
@@ -635,6 +635,10 @@
$new{tt_args} = dclone $self->tt_args;
$new{model_config} = dclone $self->model_config;
+ if ( $self->can('_plugins') ) {
+ $new{_plugins} = [ map { $_->clone } @{ $self->_plugins } ];
+ }
+
$new{languages}
= ref $self->languages
? dclone $self->languages
Modified: trunk/libhtml-formfu-perl/t/deflators/pathclassfile.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libhtml-formfu-perl/t/deflators/pathclassfile.t?rev=35087&op=diff
==============================================================================
--- trunk/libhtml-formfu-perl/t/deflators/pathclassfile.t (original)
+++ trunk/libhtml-formfu-perl/t/deflators/pathclassfile.t Sat May 9 15:07:21 2009
@@ -13,9 +13,6 @@
{ type => "Text", name => "test2", deflator => { type => "PathClassFile", relative => 't'} },
{ type => "Text", name => "test3", deflator => { type => "PathClassFile", absolute => 1} },
{ type => "Text", name => "test4", deflator => { type => "PathClassFile", basename => 1} },
-
-
-
]);
$form->process;
@@ -23,14 +20,15 @@
my $file = Path::Class::File->new('t/deflators/pathclassfile.t');
for (1..4) {
- $form->get_field('test'.$_)->default($file);
+ $form->get_field( "test$_" )->default($file);
}
-my $value = "\Q".$file->relative."\E";
-like($form->get_field('test1'), qr{value="$value"});
-$value = "\Q".$file->relative('t')."\E";
-like($form->get_field('test2'), qr{value="$value"});
-$value = "\Q".$file->absolute."\E";
-like($form->get_field('test3'), qr{value="$value"});
-$value = "\Q".$file->basename."\E";
-like($form->get_field('test4'), qr{value="$value"});
+my $value1 = $file->relative;
+my $value2 = $file->relative('t');
+my $value3 = $file->absolute;
+my $value4 = $file->basename;
+
+like( $form->get_field('test1'), qr{value="\Q$value1\E"} );
+like( $form->get_field('test2'), qr{value="\Q$value2\E"} );
+like( $form->get_field('test3'), qr{value="\Q$value3\E"} );
+like( $form->get_field('test4'), qr{value="\Q$value4\E"}) ;
More information about the Pkg-perl-cvs-commits
mailing list