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-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org