Tree - rpms/perl-Frontier-RPC - src.fedoraproject.org

Blob History Raw

		be96c89	`--- Frontier-RPC-0.06/lib/Frontier/RPC2.pm.undef-scalar 2005-06-15 11:28:48.323851492 -0400`
		be96c89	`+++ Frontier-RPC-0.06/lib/Frontier/RPC2.pm 2005-06-15 12:24:44.739297487 -0400`
		be96c89	`@@ -226,6 +226,8 @@`
		be96c89	`sub _scalar {`
		be96c89	`my $self = shift; my $value = shift;`
		be96c89
		be96c89	`+ $value = '' unless defined $value;`
		be96c89	`+`
		be96c89	# these are from `perldata(1)'
		be96c89	`if ($value =~ /^[+-]?\d+$/) {`
		be96c89	`return ("<value><i4>$value</i4></value>");`