--- trunk/pg/lib/Parser/BOP/equality.pm	2007/06/23 19:46:00	5024
+++ trunk/pg/lib/Parser/BOP/equality.pm	2007/06/28 22:33:31	5067
@@ -59,7 +59,7 @@
   $position = '' unless defined($position);
   $showparens = '' unless defined($showparens);
   my $extraParens = $self->{equation}{context}->flag('showExtraParens');
-  my $addparens = 
+  my $addparens =
       defined($precedence) &&
       ($precedence > $bop->{precedence} || ($precedence == $bop->{precedence} &&
         ($bop->{associativity} eq 'right' || $showparens eq 'same')));
@@ -93,6 +93,18 @@
   return $TeX;
 }
 
+sub perl {
+  my $self= shift;
+  my $bop = $self->{def};
+  return
+     "(" .
+       $self->{lop}->perl(1).
+       " ".($bop->{perl} || $bop->{string})." ".
+       $self->{rop}->perl(2) .
+     " ? 1 : 0)";
+}
+
+
 #
 #  Add/Remove the equality operator to/from a context
 #