diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2004-02-18 19:54:39 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2004-02-18 19:54:39 +0000 |
| commit | 4841a0c99a03ff5e2c4c8992c29ab9523d9eede9 (patch) | |
| tree | b5122c4d3e6428ef21d30a7d893de0b3de69a6dd /modules/Parser.pm | |
| parent | 4aa3fd55092362e8191badefe953a924b2082dd7 (diff) | |
| download | MPC-4841a0c99a03ff5e2c4c8992c29ab9523d9eede9.tar.gz | |
ChangeLogTag: Wed Feb 18 13:51:28 2004 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/Parser.pm')
| -rw-r--r-- | modules/Parser.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/modules/Parser.pm b/modules/Parser.pm index c6f07d02..baf93175 100644 --- a/modules/Parser.pm +++ b/modules/Parser.pm @@ -42,7 +42,8 @@ sub new { my($info) = (defined $ENV{MPC_SILENT} || !defined $ENV{MPC_INFORMATION} ? 0 : 1); my($warn) = (defined $ENV{MPC_SILENT} ? 0 : 1); - my($self) = $class->SUPER::new($info, $warn); + my($diag) = (defined $ENV{MPC_SILENT} ? 0 : 1); + my($self) = $class->SUPER::new($info, $warn, $diag); $self->{'line_number'} = 0; $self->{'include'} = $inc; |