diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2003-04-30 15:48:28 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2003-04-30 15:48:28 +0000 |
commit | 13bf3243577d4aa6df59bd0d1986cc60fb18c00c (patch) | |
tree | e641b3d511ed39f9599b4c89501fd17ae618dd76 | |
parent | e5edc686018e554c72b5b49c383fd4a34525026d (diff) | |
download | MPC-13bf3243577d4aa6df59bd0d1986cc60fb18c00c.tar.gz |
ChangeLogTag: Wed Apr 30 10:42:04 2003 Chad Elliott <elliott_c@ociweb.com>
-rw-r--r-- | modules/Creator.pm | 6 |
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; } |