r38522 - in /branches/upstream/libformvalidator-simple-perl/current: Changes MANIFEST.SKIP lib/FormValidator/Simple.pm lib/FormValidator/Simple/Profile.pm

[nhandler-guest at users.alioth.debian.org]

Author: nhandler-guest
Date: Tue Jun 23 01:58:05 2009
New Revision: 38522

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38522
Log:
[svn-upgrade] Integrating new upstream version, libformvalidator-simple-perl (0.28)

Modified:
    branches/upstream/libformvalidator-simple-perl/current/Changes
    branches/upstream/libformvalidator-simple-perl/current/MANIFEST.SKIP
    branches/upstream/libformvalidator-simple-perl/current/lib/FormValidator/Simple.pm
    branches/upstream/libformvalidator-simple-perl/current/lib/FormValidator/Simple/Profile.pm

Modified: branches/upstream/libformvalidator-simple-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libformvalidator-simple-perl/current/Changes?rev=38522&op=diff
==============================================================================
--- branches/upstream/libformvalidator-simple-perl/current/Changes (original)
+++ branches/upstream/libformvalidator-simple-perl/current/Changes Tue Jun 23 01:58:05 2009
@@ -1,4 +1,9 @@
 Revision history for Perl extension FormValidator::Simple.
+
+0.28  Mon Jun 22 14:30:00 2009
+    - bugfix: on single apache process, 'each' command in Profile.pm breaks
+      hash reference.
+      Thanks to asannou.
 
 0.23  Thr Apr 17 21:17:00 2008
     - Applied a patch which lets FVS loads plugin easily with +, like Catalyst.

Modified: branches/upstream/libformvalidator-simple-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libformvalidator-simple-perl/current/MANIFEST.SKIP?rev=38522&op=diff
==============================================================================
--- branches/upstream/libformvalidator-simple-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libformvalidator-simple-perl/current/MANIFEST.SKIP Tue Jun 23 01:58:05 2009
@@ -11,3 +11,4 @@
 \.cvsignore
 ^9\d_.*\.t
 \.svn
+\.git

Modified: branches/upstream/libformvalidator-simple-perl/current/lib/FormValidator/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libformvalidator-simple-perl/current/lib/FormValidator/Simple.pm?rev=38522&op=diff
==============================================================================
--- branches/upstream/libformvalidator-simple-perl/current/lib/FormValidator/Simple.pm (original)
+++ branches/upstream/libformvalidator-simple-perl/current/lib/FormValidator/Simple.pm Tue Jun 23 01:58:05 2009
@@ -12,7 +12,7 @@
 use FormValidator::Simple::Constants;
 use FormValidator::Simple::Messages;
 
-our $VERSION = '0.23';
+our $VERSION = '0.28';
 
 __PACKAGE__->mk_classaccessors(qw/data prof results/);
 __PACKAGE__->mk_classaccessor( messages => FormValidator::Simple::Messages->new );

Modified: branches/upstream/libformvalidator-simple-perl/current/lib/FormValidator/Simple/Profile.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libformvalidator-simple-perl/current/lib/FormValidator/Simple/Profile.pm?rev=38522&op=diff
==============================================================================
--- branches/upstream/libformvalidator-simple-perl/current/lib/FormValidator/Simple/Profile.pm (original)
+++ branches/upstream/libformvalidator-simple-perl/current/lib/FormValidator/Simple/Profile.pm Tue Jun 23 01:58:05 2009
@@ -47,7 +47,8 @@
     my ($self, $keys) = @_;
     if (ref $keys) {
         if (ref $keys eq 'HASH') {
-            my ($name, $params) = each %$keys;
+            my ($name) = keys %$keys;
+            my $params = $keys->{$name};
             $self->name($name);
             if(ref $params) {
                 $self->keys( $params   );