From: dpvc v. a. <we...@ma...> - 2007-09-08 21:41:48
|
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) { |