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