[WWcvs] pg: read_whole_file was reporting the wrong routine name in its error messages.

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
read_whole_file was reporting the wrong routine name in its error messages.

Modified Files:
--------------
    pg/lib/WeBWorK/PG:
        IO.pm

Revision Data
-------------
Index: IO.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/WeBWorK/PG/IO.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -Llib/WeBWorK/PG/IO.pm -Llib/WeBWorK/PG/IO.pm -u -r1.3 -r1.4
--- lib/WeBWorK/PG/IO.pm
+++ lib/WeBWorK/PG/IO.pm
@@ -111,7 +111,7 @@
 sub read_whole_file {
 	my $filePath = shift;
 	local (*INPUT);
-	open(INPUT, "<$filePath") || die "$0: readWholeProblemFile subroutine: <BR>Can't read file $filePath";
+	open(INPUT, "<$filePath") || die "$0: read_whole_file subroutine: <BR>Can't read file $filePath";
 	local($/)=undef;
 	my $string = <INPUT>;  # can't append spaces because this causes trouble with <<'EOF'   \nEOF construction
 	close(INPUT);