--- loncom/build/make_rpm.pl	2002/04/07 20:35:41	1.17
+++ loncom/build/make_rpm.pl	2002/04/10 05:58:17	1.18
@@ -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.17 2002/04/07 20:35:41 harris41 Exp $
+# $Id: make_rpm.pl,v 1.18 2002/04/10 05:58:17 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.