[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 5236 Revision 5237
42# Otherwise report an error 42# Otherwise report an error
43# 43#
44sub create { 44sub create {
45 my $self = shift; my $value = shift; my @extra; 45 my $self = shift; my $value = shift; my @extra;
46 return $value if ref($value) eq 'HASH'; 46 return $value if ref($value) eq 'HASH';
47 ($value,@extra) = @{$value} if ref($value) eq 'ARRAY';
47 if (defined($type{$value})) { 48 if (defined($type{$value})) {
48 @extra = (parameter => 1) if $value eq 'Parameter'; 49 push(@extra,(parameter => 1)) if $value eq 'Parameter';
49 $value = $type{$value}; 50 $value = $type{$value};
50 } elsif (Value::isValue($value)) { 51 } elsif (Value::isValue($value)) {
51 $value = $value->typeRef; 52 $value = $value->typeRef;
52 } elsif ($value =~ m/$self->{context}{pattern}{signedNumber}/) { 53 } elsif ($value =~ m/$self->{context}{pattern}{signedNumber}/) {
53 $value = $type{'Real'}; 54 $value = $type{'Real'};

Legend:
Removed from v.5236  
changed lines
  Added in v.5237

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9