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

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

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

Revision 3263 Revision 3264
441# 441#
442# Compare the values as strings 442# Compare the values as strings
443# 443#
444sub compare_string { 444sub compare_string {
445 my ($l,$r,$flag) = @_; 445 my ($l,$r,$flag) = @_;
446 if ($l->promotePrecedence($r)) {return $r->compare($l,!$flag)} 446 if ($l->promotePrecedence($r)) {return $r->compare_string($l,!$flag)}
447 $l = $l->stringify; $r = $r->stringify if Value::isValue($r); 447 $l = $l->stringify; $r = $r->stringify if Value::isValue($r);
448 if ($flag) {my $tmp = $l; $l = $r; $r = $tmp} 448 if ($flag) {my $tmp = $l; $l = $r; $r = $tmp}
449 return $l cmp $r; 449 return $l cmp $r;
450} 450}
451 451

Legend:
Removed from v.3263  
changed lines
  Added in v.3264

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9