[system] / trunk / pg / lib / Value / String.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Value/String.pm

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

Revision 3651 Revision 3652
19# 19#
20sub new { 20sub new {
21 my $self = shift; my $class = ref($self) || $self; 21 my $self = shift; my $class = ref($self) || $self;
22 my $x = join('',@_); 22 my $x = join('',@_);
23 my $s = bless {data => [$x]}, $class; 23 my $s = bless {data => [$x]}, $class;
24 if ($Parser::installed) { 24 if ($Parser::installed &&
25 !($x eq '' && $$Value::context->flag('allowEmptyStrings'))) {
25 my $strings = $$Value::context->{strings}; 26 my $strings = $$Value::context->{strings};
26 if (!$strings->{$x}) { 27 if (!$strings->{$x}) {
27 my $X = $strings->{uc($x)}; 28 my $X = $strings->{uc($x)};
28 Value::Error("String constant '%s' is not defined in this context",$x) 29 Value::Error("String constant '%s' is not defined in this context",$x)
29 unless $X && !$X->{caseSensitive}; 30 unless $X && !$X->{caseSensitive};

Legend:
Removed from v.3651  
changed lines
  Added in v.3652

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9