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);
|
