diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2003-05-01 15:34:08 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2003-05-01 15:34:08 +0000 |
| commit | bc185a9349953f352a14d64691c48bfd1b2e64ed (patch) | |
| tree | 410a76a1d820aaded70ab875785e3100558d10f7 /bin | |
| parent | 52689c36adab36186a53cf03e00e482c46b1c616 (diff) | |
| download | ATCD-bc185a9349953f352a14d64691c48bfd1b2e64ed.tar.gz | |
ChangeLogTag: Thu May 1 10:32:26 2003 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/MakeProjectCreator/modules/Creator.pm | 14 | ||||
| -rw-r--r-- | bin/MakeProjectCreator/modules/Driver.pm | 3 |
2 files changed, 12 insertions, 5 deletions
diff --git a/bin/MakeProjectCreator/modules/Creator.pm b/bin/MakeProjectCreator/modules/Creator.pm index 99de89b863c..15a7c0f7abc 100644 --- a/bin/MakeProjectCreator/modules/Creator.pm +++ b/bin/MakeProjectCreator/modules/Creator.pm @@ -98,10 +98,16 @@ sub collect_line { sub generate_default_input { - my($self) = shift; - $self->parse_line(undef, "$self->{'grammar_type'} {"); - $self->parse_line(undef, '}'); - return 1; + my($self) = shift; + my($status) = 0; + my($error) = ''; + + ## We are throwing away the error string. In both Workspace and + ## Project creators, we don't care about this error string just the + ## status. + ($status, $error) = $self->parse_line(undef, "$self->{'grammar_type'} {"); + ($status, $error) = $self->parse_line(undef, '}'); + return $status; } diff --git a/bin/MakeProjectCreator/modules/Driver.pm b/bin/MakeProjectCreator/modules/Driver.pm index 8f4d43a53cb..91c70830a5d 100644 --- a/bin/MakeProjectCreator/modules/Driver.pm +++ b/bin/MakeProjectCreator/modules/Driver.pm @@ -324,7 +324,8 @@ sub run { ($file eq '' ? 'default input' : $file) . "\n"; print 'Start Time: ' . scalar(localtime(time())) . "\n"; if (!$generator->generate($file)) { - print STDERR "ERROR: Unable to process: $file\n"; + print STDERR "ERROR: Unable to process: " . + ($file eq '' ? 'default input' : $file) . "\n"; $status++; last; } |