--- loncom/build/make_rpm.pl	2000/12/12 16:51:39	1.4
+++ loncom/build/make_rpm.pl	2000/12/21 19:26:01	1.6
@@ -201,7 +201,7 @@ close SPEC;
 
 print `cd $currentdir/SOURCES; tar czvf LON-CAPA-$tag-$version.tar.gz LON-CAPA-$tag-$version`;
 print `cd $currentdir/SPECS; rpm --rcfile=./rpmrc -ba LON-CAPA-$tag-$version.spec; cd ../RPMS/i386; cp LON-CAPA-$tag-$version-1.i386.rpm $invokingdir/.`;
-# print `cd $invokingdir; rm -Rf $tag`;
+print `cd $invokingdir; rm -Rf $tag`;
 
 sub find_info {
     # only look for
@@ -216,7 +216,7 @@ sub find_info {
 	return ("directories",split(/\t/,$line));
     }
     elsif (($line=`find $file -type l -prune`)=~/^$file\n/) {
-	$line=`find $file -type l -prune -printf "\%h/\%l\t\%m\t\%u\t\%g"`;
+	$line=`find $file -type l -prune -printf "\%l\t\%m\t\%u\t\%g"`;
 	return ("links",split(/\t/,$line));
     }