# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1236201131 -3600
# Node ID 3c9acbb43f4836a63ef50de0d7dbb224eebcdbf9
# Parent  5a956c026b6cb703810db9f949a5ee382340a8df
fix single element query for perm matrices

diff -r 5a956c026b6c -r 3c9acbb43f48 liboctave/ChangeLog
--- a/liboctave/ChangeLog	Tue Mar 03 18:52:07 2009 -0500
+++ b/liboctave/ChangeLog	Wed Mar 04 22:12:11 2009 +0100
@@ -1,3 +1,7 @@
+2009-03-04  Jaroslav Hajek  <highegg@gmail.com>
+
+	* PermMatrix.h (PermMatrix::elem): Fix comparisons.
+
 2009-03-03  Jaroslav Hajek  <highegg@gmail.com>
 
 	* lo-mappers.cc (xmin (float, float), xmax (float, float)): Simplify.
diff -r 5a956c026b6c -r 3c9acbb43f48 liboctave/PermMatrix.h
--- a/liboctave/PermMatrix.h	Tue Mar 03 18:52:07 2009 -0500
+++ b/liboctave/PermMatrix.h	Wed Mar 04 22:12:11 2009 +0100
@@ -73,8 +73,8 @@
   elem (octave_idx_type i, octave_idx_type j) const
     {
       return (_colp 
-              ? ((Array<octave_idx_type>::elem (j) != i) ? 1 : 0)
-              : ((Array<octave_idx_type>::elem (i) != j) ? 1 : 0));
+              ? ((Array<octave_idx_type>::elem (j) == i) ? 1 : 0)
+              : ((Array<octave_idx_type>::elem (i) == j) ? 1 : 0));
     }
 
   octave_idx_type