--- loncom/build/make_rpm.pl	2002/04/07 19:35:27	1.16
+++ loncom/build/make_rpm.pl	2002/07/03 21:17:56	1.20
@@ -8,7 +8,7 @@
 # The LearningOnline Network with CAPA
 # make_rpm.pl - make RedHat package manager file (A CLEAN AND CONFIGURABLE WAY)
 #
-# $Id: make_rpm.pl,v 1.16 2002/04/07 19:35:27 harris41 Exp $
+# $Id: make_rpm.pl,v 1.20 2002/07/03 21:17:56 harris41 Exp $
 #
 # Written by Scott Harrison, harris41@msu.edu
 #
@@ -88,6 +88,9 @@ my ($tag,$version,$configuration_files,$
     $pathprefix,$customize)=@ARGV;
 @ARGV=(); # read standard input based on a pipe, not a command-line argument
 
+# standardize pathprefix argument
+$pathprefix=~s/\/$//; # OTHERWISE THE BEGINNING SLASH MIGHT BE REMOVED
+
 if (!$version) {# version should be defined and string length greater than zero
     print(<<END);
 See "perldoc make_rpm.pl" for more information.
@@ -262,6 +265,7 @@ $tv=grabtag('pre',$cu,0); $pre=$tv if $t
 $pre=~s/\<tag \/\>/$tag/g;
 
 # ------------------------------------- Print header information for .spec file
+print('Print header information for .spec file'."\n");
 
 print(SPEC <<END);
 Summary: $summary
@@ -300,6 +304,7 @@ $pre
 END
 
 # ------------------------------------ Process file list and gather information
+print('Process standard input file list and gather information.'."\n");
 
 my %BinaryRootMakefile;
 my %Makefile;
@@ -356,6 +361,7 @@ foreach my $file (<>) {
 }
 
 # -------------------------------------- Generate SRPM and BinaryRoot Makefiles
+print('Generate SRPM and BinaryRoot Makefiles.'."\n");
 
 # Generate a much needed directory.
 # This directory is meant to hold all source code information
@@ -380,6 +386,7 @@ close(OUTS);
 close(SPEC);
 
 # ------------------ mirror copy (BinaryRoot) files under a temporary directory
+print('Mirror copy (BinaryRoot) files.'."\n");
 
 `make -f $tag/BinaryRootMakefile directories`;
 `make -f $tag/BinaryRootMakefile files`;
@@ -440,6 +447,8 @@ sub grabtag {
 
 # ----------------------------------------------------- Plain Old Documentation
 
+=pod
+
 =head1 NAME
 
 make_rpm.pl - cleanly generate an rpm in a simple one-line command
@@ -835,7 +844,7 @@ Linux
 
 =head1 SCRIPT CATEGORIES
 
-UNIX/System Administration
+UNIX/System_administration
 
 =cut