version 1.17, 2002/04/07 20:35:41
|
version 1.18, 2002/04/10 05:58:17
|
Line 88 my ($tag,$version,$configuration_files,$
|
Line 88 my ($tag,$version,$configuration_files,$
|
$pathprefix,$customize)=@ARGV; |
$pathprefix,$customize)=@ARGV; |
@ARGV=(); # read standard input based on a pipe, not a command-line argument |
@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 |
if (!$version) {# version should be defined and string length greater than zero |
print(<<END); |
print(<<END); |
See "perldoc make_rpm.pl" for more information. |
See "perldoc make_rpm.pl" for more information. |