Mailing List Archive

Author: richter
Date: Sun Jan 26 13:34:32 2014
New Revision: 1561485

URL: http://svn.apache.org/r1561485
Log:
addtop more flexible

Modified:
perl/embperl/trunk/Embperl/Form/ControlMultValue.pm

Modified: perl/embperl/trunk/Embperl/Form/ControlMultValue.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/ControlMultValue.pm?rev=1561485&r1=1561484&r2=1561485&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/ControlMultValue.pm (original)
+++ perl/embperl/trunk/Embperl/Form/ControlMultValue.pm Sun Jan 26 13:34:32 2014
@@ -118,8 +118,8 @@ sub get_all_values
my @options ;
if ($addtop)
{
- push @values, map { $_ -> [0] } @$addtop ;
- push @options, map { $_ -> [1] } @$addtop ;
+ push @values, map { ref $_?$_ -> [0]:$_ } @$addtop ;
+ push @options, map { ref $_?$_ -> [1]:$_ } @$addtop ;
}

if ($values)



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org