From: dpvc v. a. <we...@ma...> - 2009-02-05 15:11:37
|
Log Message: ----------- Removed unused variable Modified Files: -------------- pg/lib/Parser: Value.pm Revision Data ------------- Index: Value.pm =================================================================== RCS file: /webwork/cvs/system/pg/lib/Parser/Value.pm,v retrieving revision 1.22 retrieving revision 1.23 diff -Llib/Parser/Value.pm -Llib/Parser/Value.pm -u -r1.22 -r1.23 --- lib/Parser/Value.pm +++ lib/Parser/Value.pm @@ -46,8 +46,7 @@ # Set flags for the object # sub check { - my $self = shift; - my $type = $self->{type}; my $value = $self->{value}; + my $self = shift; my $value = $self->{value}; $self->{isZero} = $value->isZero; $self->{isOne} = $value->isOne; } |