From: Mike G. v. a. <we...@ma...> - 2010-06-08 00:57:20
|
Log Message: ----------- removed unnecessary warning Modified Files: -------------- pg/lib: PGcore.pm Revision Data ------------- Index: PGcore.pm =================================================================== RCS file: /webwork/cvs/system/pg/lib/PGcore.pm,v retrieving revision 1.9 retrieving revision 1.10 diff -Llib/PGcore.pm -Llib/PGcore.pm -u -r1.9 -r1.10 --- lib/PGcore.pm +++ lib/PGcore.pm @@ -310,9 +310,9 @@ my $in_key = shift; if ( not_null($in_key) ) { if (defined ($self->{envir}->{$in_key} ) ) { - warn "result is", $self->{envir}->{$in_key}; + $self->{envir}->{$in_key}; } else { - warn "\$envir{$in_key} is not defined"; + warn "\$envir{$in_key} is not defined\n"; return ''; } } else { |