Log Message:
-----------
Removed an experiment that I accidentally left in during the last commit.
Modified Files:
--------------
pg/lib/Value:
Vector.pm
Revision Data
-------------
Index: Vector.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Vector.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -Llib/Value/Vector.pm -Llib/Value/Vector.pm -u -r1.33 -r1.34
--- lib/Value/Vector.pm
+++ lib/Value/Vector.pm
@@ -143,10 +143,6 @@
sub compare {
my ($self,$l,$r) = Value::checkOpOrderWithPromote(@_);
my @l = $l->value; my @r = $r->value;
- if ($self->getFlag("ignoreTrailingZeros")) {
- while (scalar(@l) < scalar(@r) && $r[scalar(@l)] == 0) {push(@l,0)}
- while (scalar(@r) < scalar(@l) && $r[scalar(@r)] == 0) {push(@r,0)}
- }
return scalar(@l) <=> scalar(@r) unless scalar(@l) == scalar(@r);
my $cmp = 0;
foreach my $i (0..scalar(@l)-1) {
|
