--- loncom/build/piml_parse.pl	2002/01/31 17:37:19	1.3
+++ loncom/build/piml_parse.pl	2002/02/05 01:29:22	1.4
@@ -3,7 +3,7 @@
 # The LearningOnline Network with CAPA
 # piml_parse.pl - Linux Packaging Markup Language parser
 #
-# $Id: piml_parse.pl,v 1.3 2002/01/31 17:37:19 harris41 Exp $
+# $Id: piml_parse.pl,v 1.4 2002/02/05 01:29:22 harris41 Exp $
 #
 # Written by Scott Harrison, harris41@msu.edu
 #
@@ -190,7 +190,7 @@ while ($token = $parser->get_token()) {
 	    $cleanstring.=$token->[4];
 	}
 	if ($token->[4]=~/\/>$/) {
-	    $hloc--;
+#	    $hloc--;
 	}
     }
     if ($token->[0] eq 'E') {
@@ -236,6 +236,8 @@ my $fileglob_count;
 my $fileglobnames_count;
 my %categorycount;
 
+my $mode;
+
 my @buildall;
 my @buildinfo;
 
@@ -323,6 +325,7 @@ sub format_targetroot {
 # -------------------------------------------------- Format perl script section
 sub format_perlscript {
     my (@tokeninfo)=@_;
+    $mode=$tokeninfo->[2]{'mode'};
     my $text=$parser->get_text('/perlscript');
     $parser->get_tag('/perlscript');
     return $text;