ChangeLogTag: Fri Feb 28 07:49:00 2003 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 13 insertions, 3 deletions

diff --git a/modules/Parser.pm b/modules/Parser.pm
index 40f46ec8..8a7aed72 100644
--- a/modules/Parser.pm
+++ b/modules/Parser.pm
@@ -83,6 +83,17 @@ sub process_special {
 }
 
 
+sub collect_line {
+  my($self) = shift;
+  my($fh)   = shift;
+  my($lref) = shift;
+  my($line) = shift;
+
+  $$lref = $self->strip_line($line);
+  return $self->parse_line($fh, $$lref);
+}
+
+
 sub read_file {
   my($self)        = shift;
   my($input)       = shift;
@@ -92,10 +103,9 @@ sub read_file {
 
   $self->{'line_number'} = 0;
   if (open($ih, $input)) {
+    my($line) = "";
     while(<$ih>) {
-      my($line) = $self->strip_line($_);
-
-      ($status, $errorString) = $self->parse_line($ih, $line);
+      ($status, $errorString) = $self->collect_line($ih, \$line, $_);
 
       if (!$status) {
         last;