summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorelliott_c <ocielliottc@users.noreply.github.com>2003-04-30 15:48:28 +0000
committerelliott_c <ocielliottc@users.noreply.github.com>2003-04-30 15:48:28 +0000
commit13bf3243577d4aa6df59bd0d1986cc60fb18c00c (patch)
treee641b3d511ed39f9599b4c89501fd17ae618dd76
parente5edc686018e554c72b5b49c383fd4a34525026d (diff)
downloadMPC-13bf3243577d4aa6df59bd0d1986cc60fb18c00c.tar.gz
ChangeLogTag: Wed Apr 30 10:42:04 2003 Chad Elliott <elliott_c@ociweb.com>
-rw-r--r--modules/Creator.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/modules/Creator.pm b/modules/Creator.pm
index 3773f5ce..99de89b8 100644
--- a/modules/Creator.pm
+++ b/modules/Creator.pm
@@ -116,12 +116,14 @@ sub parse_file {
my($linenumber) = $self->line_number();
if (!$status) {
- print STDERR "$input: line $linenumber: $errorString\n";
+ print STDERR $self->getcwd() .
+ "/$input: line $linenumber:\n$errorString\n";
}
elsif ($status && $self->{$typecheck}) {
## If we are at the end of the file and the type we are looking at
## is still defined, then we have an error
- print STDERR "$input: line $linenumber: ERROR: Did not " .
+ print STDERR $self->getcwd() .
+ "/$input: line $linenumber:\nERROR: Did not " .
"find the end of the $self->{'grammar_type'}\n";
$status = 0;
}