[system] / trunk / pg / lib / Parser / Context / Variables.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Parser/Context/Variables.pm

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

Revision 2621 Revision 2622
40# Otherwise, if it is a signed number, use the Real type 40# Otherwise, if it is a signed number, use the Real type
41# Otherwise report an error 41# Otherwise report an error
42# 42#
43sub create { 43sub create {
44 my $self = shift; my $value = shift; 44 my $self = shift; my $value = shift;
45 return $value if ref($value) eq 'HASH';
45 if (defined($type{$value})) { 46 if (defined($type{$value})) {
46 $value = $type{$value}; 47 $value = $type{$value};
47 } elsif (Value::isValue($value)) { 48 } elsif (Value::isValue($value)) {
48 $value = $value->typeRef; 49 $value = $value->typeRef;
49 } elsif ($value =~ m/$self->{context}{pattern}{signedNumber}/) { 50 } elsif ($value =~ m/$self->{context}{pattern}{signedNumber}/) {

Legend:
Removed from v.2621  
changed lines
  Added in v.2622

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9