[system] / trunk / xmlrpc / daemon / Frontier / RPC2.pm Repository:
ViewVC logotype

Diff of /trunk/xmlrpc/daemon/Frontier/RPC2.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 680 Revision 681
229 return @text; 229 return @text;
230} 230}
231 231
232sub _scalar { 232sub _scalar {
233 my $self = shift; my $value = shift; 233 my $self = shift; my $value = shift;
234 234 $value = '' unless defined($value); # hack -- is this necessary? desirable?
235 # these are from `perldata(1)' 235 # these are from `perldata(1)'
236 if ($value =~ /^[+-]?\d+$/) { 236 if ($value =~ /^[+-]?\d+$/) {
237 return ("<value><i4>$value</i4></value>"); 237 return ("<value><i4>$value</i4></value>");
238 } elsif ($value =~ /^(-?(?:\d+(?:\.\d*)?|\.\d+)|([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?)$/) { 238 } elsif ($value =~ /^(-?(?:\d+(?:\.\d*)?|\.\d+)|([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?)$/) {
239 return ("<value><double>".sprintf('%0.13f',$value)."</double></value>"); # Frontier can't handle exponential notation 239 return ("<value><double>".sprintf('%0.13f',$value)."</double></value>"); # Frontier can't handle exponential notation

Legend:
Removed from v.680  
changed lines
  Added in v.681

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9