--- loncom/build/lpml_parse.pl	2005/12/09 20:41:35	1.53
+++ loncom/build/lpml_parse.pl	2007/06/02 03:04:51	1.55
@@ -12,7 +12,7 @@
 # The LearningOnline Network with CAPA
 # lpml_parse.pl - Linux Packaging Markup Language parser
 #
-# $Id: lpml_parse.pl,v 1.53 2005/12/09 20:41:35 albertel Exp $
+# $Id: lpml_parse.pl,v 1.55 2007/06/02 03:04:51 albertel Exp $
 #
 # Written by Scott Harrison, codeharrison@yahoo.com
 #
@@ -531,7 +531,7 @@ END
 	print ' by Scott Harrison 2001'."\n";
 	print '# This file was automatically generated on '.`date`;
 	print "\n".$invocation;
-	$lpml .= "SHELL=\"/bin/bash\"\n\n";
+	$lpml .= "\n";
     }
     elsif ($mode eq 'configinstall') {
 	print '# LPML configuration file targets (configinstall).'."\n";
@@ -539,14 +539,14 @@ END
 	print ' by Scott Harrison 2001'."\n";
 	print '# This file was automatically generated on '.`date`;
 	print "\n".$invocation;
-	$lpml .= "SHELL=\"/bin/bash\"\n\n";
+	$lpml .= "\n";
     }
     elsif ($mode eq 'build') {
 	$lpml = "# LPML build targets. Linux Packaging Markup Language,";
 	$lpml .= ' by Scott Harrison 2001'."\n";
 	$lpml .= '# This file was automatically generated on '.`date`;
 	$lpml .= "\n".$invocation;
-	$lpml .= "SHELL=\"/bin/sh\"\n\n";
+	$lpml .= "\n";
     }
     else {
 	return '';
@@ -1297,15 +1297,23 @@ END
                 $buildtest.=<<END;
 	fi
 END
-	    }
+            }
 	    if ($installscript) {
 		my $dir = $sourceroot.'/'.$source;
 		$dir =~ s|/([^/]*)$||;
-		return <<"END";
-$buildtest	cd $dir ; sh $installscript\\
-		chmod -R $categoryhash{chmod.$categoryname} ${targetroot}/${target} \\
-		chown -R $categoryhash{chown.$categoryname} ${targetroot}/${target} \\
+		my $result =" 
+$buildtest	cd $dir ; sh $installscript";
+		if ($categoryname 
+		    && exists($categoryhash{"chmod.$categoryname"}) ) {
+		    $result .="\\\n";
+		    $result .=<<"END"
+		chmod -R $categoryhash{"chmod.$categoryname"} ${targetroot}/${target} \\
+		chown -R $categoryhash{"chown.$categoryname"} ${targetroot}/${target} 
 END
+                } else {
+		    $result.="\n";
+		}
+		return $result;
 	    }
             my $bflag='-b1';
             $bflag='-b3' if $dependencies or $buildlink;