diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2006-12-12 19:47:08 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2006-12-12 19:47:08 +0000 |
commit | b1e51312fdfd1fa89084bf75033e3bbcc492ff71 (patch) | |
tree | c0c71a8807eea49a99ea7ebf7e1bf21ad3ec60fc /modules/Parser.pm | |
parent | bd2ed024fcfc46b988bc923b9a216aa43f658f69 (diff) | |
download | MPC-b1e51312fdfd1fa89084bf75033e3bbcc492ff71.tar.gz |
ChangeLogTag: Tue Dec 12 19:46:17 UTC 2006 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/Parser.pm')
-rw-r--r-- | modules/Parser.pm | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/modules/Parser.pm b/modules/Parser.pm index 65930eba..c1b247c7 100644 --- a/modules/Parser.pm +++ b/modules/Parser.pm @@ -25,8 +25,6 @@ use vars qw(@ISA); # ************************************************************ my(%filecache) = (); -my($silent) = 'MPC_SILENT'; -my($logging) = 'MPC_LOGGING'; # ************************************************************ # Subroutine Section @@ -35,18 +33,7 @@ my($logging) = 'MPC_LOGGING'; sub new { my($class) = shift; my($inc) = shift; - - ## The order of these array variables must correspond to the - ## order of the parameters to OutputMessage::new(). - my($params) = (defined $ENV{$silent} ? [0, 0, 0, 0, 0] : undef); - if (defined $params) { - print "NOTE: $silent is deprecated. See the USAGE file for details.\n"; - } - my($self) = $class->SUPER::new($params); - if (defined $ENV{$logging}) { - print "NOTE: $logging is deprecated. See the USAGE file for details.\n"; - OutputMessage::set_levels($ENV{$logging}); - } + my($self) = $class->SUPER::new(); $self->{'line_number'} = 0; $self->{'include'} = $inc; |