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

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

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

Tags:
----
rel-2-4-patches

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.3.8.1
diff -Llib/WeBWorK/PG/IO.pm -Llib/WeBWorK/PG/IO.pm -u -r1.3 -r1.3.8.1
--- lib/WeBWorK/PG/IO.pm
+++ lib/WeBWorK/PG/IO.pm
@@ -1,4 +1,4 @@
-################################################################################
+e################################################################################
 # WeBWorK mod_perl (c) 2000-2002 WeBWorK Project
 # $Id$
 ################################################################################
@@ -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);