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 {
|
