--- loncom/build/piml_parse.pl	2002/02/05 01:29:22	1.4
+++ 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.4 2002/02/05 01:29:22 harris41 Exp $
+# $Id: piml_parse.pl,v 1.5 2002/02/05 01:49:39 harris41 Exp $
 #
 # Written by Scott Harrison, harris41@msu.edu
 #
@@ -325,10 +325,21 @@ sub format_targetroot {
 # -------------------------------------------------- Format perl script section
 sub format_perlscript {
     my (@tokeninfo)=@_;
-    $mode=$tokeninfo->[2]{'mode'};
+    $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 {