--- loncom/build/piml_parse.pl	2002/01/31 17:37:19	1.3
+++ loncom/build/piml_parse.pl	2002/02/05 01:49:39	1.5
@@ -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.5 2002/02/05 01:49:39 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,9 +325,21 @@ 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;
+    if ($mode eq 'bg') {
+	open OUT,">/tmp/piml$$.pl";
+	print OUT $text;
+	close OUT;
+	return <<END;
+	# launch background process for $target
+	system("perl /tmp/piml$$.pl &");
+END
+    }
+    else {
+	return $text;
+    }
 }
 # --------------------------------------------------------------- Format TARGET
 sub format_TARGET {