diff options
author | Adam Mitz <mitza-oci@users.noreply.github.com> | 2010-12-22 17:36:26 +0000 |
---|---|---|
committer | Adam Mitz <mitza-oci@users.noreply.github.com> | 2010-12-22 17:36:26 +0000 |
commit | a399cf075c134b906526c09c2ad8a2348dadb5bf (patch) | |
tree | 81b4fe7b5864eea2292f514c53bffb9cfe4d705d /modules/Parser.pm | |
parent | 34954baad53240c7e0dbba7bd95d01d4de9a8a35 (diff) | |
download | MPC-a399cf075c134b906526c09c2ad8a2348dadb5bf.tar.gz |
ChangeLogTag: Wed Dec 22 17:28:56 UTC 2010 Adam Mitz <mitza@ociweb.com>
Diffstat (limited to 'modules/Parser.pm')
-rw-r--r-- | modules/Parser.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/modules/Parser.pm b/modules/Parser.pm index bca6dccd..7a749691 100644 --- a/modules/Parser.pm +++ b/modules/Parser.pm @@ -13,6 +13,7 @@ package Parser; use strict; use FileHandle; +use mpc_debug; use OutputMessage; use StringProcessor; use DirectoryManager; @@ -71,6 +72,7 @@ sub read_file { my $status = 1; my $errorString; + mpc_debug::chkpnt_pre_read_file($input, $cache); $self->{'line_number'} = 0; if (open($ih, $input)) { $self->debug("Open $input"); @@ -109,6 +111,7 @@ sub read_file { $errorString = "Unable to open \"$input\" for reading"; $status = 0; } + mpc_debug::chkpnt_post_read_file($input, $cache, $status, $errorString); return $status, $errorString; } |